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PROGRAM DESCRIPTION GUIDE 


IDENTIFICATIQ N 
Program Name 
Programmer's Name 
Programmer Contact 
Date of Issue 


- Whole-Body Algorithm 

- D. Grounds, D. Fitajerrell, J. Leonard, V. Marks 

- V, J. Marks, GE/TSSD, Houston 

- June 19, 1975 


GENERAL DESCRIPTIOR 

The ^Vhole-Body Algorithm is a mathematical model tlnat can simulate the response 
of certain major body regulatory systems to diverse but specific stresses related to 
the space flight environment. These stresses include environmental (e. g. , changes 
in cabin temperature and atmospheric composition -- increased carbon dioxide concen- 
tration and hypoxia), experimental (e, g. , bicycle ergometry - supine and erect, lower 
body negative pressure, and head-up tilt-table or passive standing), and long term 
adaptation (such as hypofcinesis). 

The design of the whole-body algorithm provides for the simulation of both long and 
short term stresses. The long term simulation is accomplished by a circulatory, 
fluid and electrolyte subsystems model which then initializes a set of three short 
term models representing the cardiovascular, respiratory, and thermoregulatory 
systems. These three short term models, which are designed to simulate the 
responses to acute changes in environmental and short term experiment stresses, 
operate in parallel fashion Interchanging information as often as every half second 
of simulation time. This approach simulates with equal facility those adaptive 
changes which require days, weeks, or even months of simulation time, as well as 
those experimental stresses in which significant changes might occur in a matter 
of seconds. 

USAGE AND RESTRICTIONS 

Machine, Operating System, and 
Compiler Required 

Peripheral Equipment Required 

Approximate Memory Required 

PARTICULAR DESCRIPTION 
Equations- Used and Derivations 

The individual subsystem models- (cardiovascular, respiratory, thermoregula- 
tory, and circulatory fluid and electrolyte control) were developed or modified 
from existing models to be capable of simulating the stresses of interest on the 
Univac IHO Demand System. These models and the various modifications have 
been described in detail in the literature in previous HR's and, therefore, will 
not be repeated here. The Guyton model with modifications by White is docu- 
mented in HR's - 741-MED-3042, 4017, and 4021 is capable of simulating 


- Univac 1110 Demand, EXEC 8, Fortran 

- Electronic Data Terminal and Tape Unit 



HROGBAM DESCRIPTION GUIDE 


A. 


IDENTIFICATION 
Program Name 
Programmer's Name 
Programmer Contact 
Date of Issue 


Whole-Body Algorithm 

D. Groimds, D. Fitzjerrell, J. Leonard, V. Marks 
V. J. Marks, GE/TSSD, Houston 
June 19, 1975 


B. GENERAL DESCRIPTION 

The Whole-Body Algorithm is a mathematical model that can simulate the response 
of certain major body regulatory systems to diverse but specific stresses related to 
the space flight environment. These stresses include environmental (e. g. , changes 
in cabin temperature and atmospheric composition - increased carbon dioxide concen- 
tration and hypoxia), experimental (e. g. , bicycle ergometry - supine and erect, lower 
body negative pressure, and head-up tilt-table or passive standing), and long term 
adaptation (such as hypokinesis). 

The design of the whole-body algorithm provides for the simulation of both long and 
short term stresses. The long term simulation is accomplished by a circulatory, 
fluid and electrolyte subsystems model which then initializes a set of three short 
term models representing the cardiovascular, respiratory, and thermoregulatory 
systems. These three short term models, which are designed to simulate the 
responses to acute changes in environmental and short term experiment stresses, 
operate in parallel fashion interchanging information as often as every half second 
of simulation time. This approach simulates with equal facility those adaptive 
changes which require days, weeks, or even months of simulation time, as well as 
those experimental stresses in which significant changes might occur in a matter 
of seconds. 

C. USAGE AND RESTRICTIONS 
Machine, Operating System, and 

Compiler Required - Univac 1110 Demand, EXEC 8, Fortran 

Peripheral Equipment Required - Electronic Data Terminal and Tape Unit 
Approximate Memory Required - 18500^^ 

D. PARTICULAR DESCRIPTION 
Equations Used and Derivations 

The individual subsystem models (cardiovascular, respiratory, thermoregula- 
tory, and circulatory fluid and electrolyte control) were developed or modified 
from existing models to be capable of simulating the stresses of interest on the 
Univac 1110 Demand System. These models and the various modifications have 
been described in detail in the literature in previous TER's and, therefore, will 
not be repeated here. The Guyton model with modifications by White is docu- 
mented in TIR's - 741-MED-3042, 4017, and 4021 is capable of simulating 
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intermediate and long term changes in circulatory, fluid and electrolyte 
control. The respiratory subsystem is represented by Grodins* model 
with modifications by Gallagher in TIR’s - 741-MED-3047, 4016, 4018, 
and 5001. The Stolwijk thermoregulatory subsystem model with modifica- 
tions by GE is described in TIR's - 741-MED-3013, 4011, and 4014. The 
cardiovascular subsystem is represented by a model developed under this 
contract by Croston for bicycle ergometry exercise with modifications by 
Fitzjerrell and Croston for LBNP, tilt and tilt (supine) ergometry and is 
documented in TIR's - 741-MED-2010, 3053, 3054, and 4008. 


Definition and Value of Terms Used 


Circulatory 


Cardiovascular 


Thermoregulatory 


Respiratory 


See Appendix A for definitions and Appendix F, page 72 
for input/output Index and initial value 

See Appendix B for definitions, input/output index 
and initial value 

See Appendix C for definitions , input/output index 
and initial value 

See Appendix D for definitions, input/output index and 
initial value 


Detailed Description 

Most of the model's variables are indexed and their initial values may be 
changed at run time by reference to this index. The output may also be 
modified by use of this index. The mathematical model is summarized 
by a functional block diagram as shown in Figure 1. 


E. DESCRIPTION OF INPUT 

A Univac 1110 file (GEDIcontaihs the source and relocatables of all subrou- 
tines, the executable program, and initial data files. Since GE, is not protected, 
the user should copy GE. into another file, then make required modifications to 
this other file. 


The user inputs data from a remote electronic data terminal via responding 
to questions asked by the program. Options are available so a user can exe- 
cute long and/or short term stresses as required. (See Appendix E for 
examples of input). 

A graphic remote terminal can obtain plots of output data by requesting the 
program to build an output file. This file is then plotted in a separate run. 
Refer to TIR 741-MED-5011 for user instructions. 
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CBF = Trunk Core^Biood.Flow- Pa02 = Arterial Oxygen Partial Press. 

HBF = Head Blood Flow PaC02 = Arterial C02 Partial Press. 

MBF = Muscle Blood Flow R02R = Resting Oxygen Requirement 

SBF = Skin Blood Flow BV = Total Blood Volume 

RBF = Renal Blood Flow UBV = Total Unstressed Blood Vol. 

CO> = Cardiac Output IWL = Insensible Water Loss 

V02 = Oxygen.Uptake OHC = Oxy-Hemoglobin Concentration 

RF = Respiratory.Frequency HM = Hematocrit 

NBF = Non-muscle Blood Flow 


FIGURE 1 


BLOCK DIAGRAM OF WHOLE- BODY 
ALGORITHM INTERFACES 
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The long term data is written to unit 7 and the short term data is written to 

unit 14, 15, 16, 18, N depending on the number of separate short term 

runs being made. This data is dynamically stored, but could be saved on tape 
if required by assignment of a tape unit to the appropriate output unit. 

Control Cards - (Begin in card column 1) 

@COPY GE. , TPF$. Copy program into work file. 

@ASG,T 14, 8C,TAPENO Save short term output for plotting 
@XQT Execute program 

F. DESCRIPTION OF OUTPUT 

See Appendix F for example of input/output. 

G. INTERNAL CHECKS AND EXITS 

Input data is checked for invalid input, allowing the user to resubmit if wrong. 

H. INDEPENDENT SUBROUTINES 

See Appendix F for listing of all subroutines 

I. SYSTEM SUBROUTINES 

No special system subroutines required. 

J. COMPLETION OR FINAL CHECKOUT DATE 


6/3/75 



APPENDIX A 
DEFINITION OF TERMS 
FOR 

LONG TERM MODEL 
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The following list includes all variables used in the long term model. 
Independent variables (never calculated by the program) are Indicated by . XJni 
used are: volume in liters, mass in grams, time in minutes, chemical units in 

milliequivalents, pressure in millimeters of mercury, and control factors as ratio 

to normal. 


AAR- 

AGK*- 

AH- 

AHC- 

AHK*- 

AHM- 

AHY- 

AHZ- 

AH8- 

ALO*r 

AM- 

AMC- 

AMP- 

AMR- 

AMT*- 

AMl- 


offerent arteriolar resistance 

constant concerned with effect of renin on angiotensin formation 
antidiuretic hormone secretion rate 
anti diuretic hormone concentration 

constant used in calculating antidiuretic hormone concentration 
antidiureric hormone multiplier 

adapted effect of right atrial pressure on antidiuretic hormone secretion rate 
basic effect of right atrial pressure on antidiuretic hormone secretion rate 
effect of autonomic stimulation on antidiuretic hormone secretion rate 
maximum aortic arterial oxygen saturation 
aldosterone multiplier 
aldosterone concentrotion . 

muscle vascular constriction caused by local tissue control, ratio to resting state 

effect of arterial pressure on rate of aldosterone secretion 

effect of sodium to potassium ratio on fate of aldosterone. secretion 

time constant of aldosterone accumulation and destruction 

rate of aldosterone secretion 
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ANC- 

ANM- 

ANP- 

ANR- 

ANT*- 

ANU- 

ANV*- 

ANW- 
ANY*- 
ANZ*- 
ANl - 
AOM- 
, APD- 
ARF*- 
ARM- 
ARl- 
AR2- 
AR3-. 
AU- 
AUB- 
AUC- 
AUH- 


angiotensin concentration 

angiotensin multiplier effect on vascular resistance, ratio to normal 
effect of renal blood flow on angiotensin formation 

effect of glomerular filtration and sodium concentration on renin formation 
with consequent effect on angiotensin formation 

time constant of angiotensin accumulation and destruction 

non-renal effect of angiotensin 

total body systemic xmstressed volume diminished by bed rest fluid shift 
factor 

partial effect of renin on angiotensin formation 

constant used to calculate angiotensin effect on venous volume 

constant used to calculate angiotensin effect on venous resistance 

rote of angiotensin formation 

autonomic effect on tissue oxygen utilization 

efferent arteriolar pressure drop 

intensity of sympathetic effects on renal function 

vasoconstrictor effect of all types of dutoregu lotion 

vasoconstrictor effect of rapid autoregulation 

vasoconstrictor effect of intermediate autoregulation 

vasoconstrictor effect of -long-term autoregulation 

overall activity of autonomic system 

effect of baroreceptors on autoregulation 

effect of chemore'ceptors on autonomic stimulation 

autonomic stimulation of heart 
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AUJ- 

AUK*- 

AUL*- 

AUM- 

AUN- 

AUO- 

AUP- 

AUQ*-> 

AUR- 

AUS*- 

AUV*- 

AUX*- 

AUY*- 

AUZ*- 

AU4> 

AU6- 

AU8- 

AV£- 

AIB- 

AIK*- 

A2K*- 

A3K*- 

A4K*- 

BFM- 


basic overall autonomic stimulation 
time constant of baroreceptor adaptation 

switch that turns on bed rest induced cardioacceleration effect, 
sympathetic vasoconstrictor effect on arteries 
effect of CNS ischemic reflex on autoregulation 

fractional departure of overall activity of autonomic system from normal 
autonomic stimulation of peripheral circulatory sensitivity 
sensitivity of sympathetic control of peripheral circulation 
autonomic stimulation for heart rate 
sensitivity of sympathetic control of heart rote 

amount of fluid shifted during bed rest from unstressed to stressed blood volume. 

sensitivity of baroreceptors 

sensitivity of sympathetic control of veins 

overall sensitivity of autonomic control 

degree of adjustment of baroreceptor response 

adapted baroreceptor response 

rate of adaptation of baroreceptors 

effect of autonomic stimulation on venous resistance 

sensitivity parameter for baroreceptor drive 

time constant of rapid auto regulation ■ 

time constant of intermediate autoregulation 

time constant of long-term autoregulation 

time constant for muscle loco! vascular response to metabolic activity 
muscle blood flow 
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BFN- 

CCD- 

CFC*- 

CHY- 

CKE- 

CKl- 

CNA- 

CNB- 

CNR*- 

CNE- 

CNX* 

CNY*- 

CNZ*- 

CN2" 

CN3- 

CN7*- 

CPF*- 

CPG- 

CPI- 

CPK*- 


blood flow in non-muscle/ non*-renal tissues 
concentration gradient across cell membrane 
capillary filtration coefficient 
concentration of hyaluronic acid in tissue fluids 
extracellular potassium concentration 
intracellular potassium concentration 
extracellular sodium concentration 

difference between extracellular sodium concentration and set point used to 
calculate anti diuretic hormone secretion rate 

reference sodium concentration used in determining effect of sodium on anti- 
diuretic hormone secretion rate 

sodium concentration abnormality causing third factor effect 

constant used in calculation of renal excretion rate of sodium 

constant used in calculation of renal excretion rate of sodium 

sensitivity of antidiuretic hormone production rate to extracellular sodium 
concentration 

constant used'in calculation of venous resistance 

dummy variable used in calculation of the effect of capillary pressure on 
venous resistance 

constant used in calculation of venous resistance 

sensitivity of rate of transfer of fluid across pulmonary capil lories to pressure 
gradient 

concentration of protein in tissue gel 
concentration of protein in free interstitial fluid 

rate constant used in determining loss of plosma protein through systemic 
capillaries 



10 


CPN- 

CPP- 

CPR*“ 

CV*- 

DAS- 

DAU- 

DFP- 

DHM- 

DLA- 

DLP- 

DLZ- 

DOB- 

DPA- 

DPC- 

DPI- 

DPL- 

DPO*- 

DRA- 

DVS- 

EXC* 

EXE- 

EXl*- 


concentration of protein in pulmonary fluids 
plasma protein concentration 

reference plasma protein concentration governing protein production by liver 
v.enous capacitance 

rate of volume increase of systemic arteries 

autonomic stimulation drive 

rate of Increase In pulmonary free fluid 

rate of cardiac deterioration caused by hypoxia 

rate of volume increase in pulmonary veins and left atrium . 

rate of formation of plasma protein by liver 

undamped plasma protein concentration differential causing protein production 
by liver 

rate of oxygen delivery to non-muscle cells 
rate of Increase In pulmonary volume 

rate of loss of plasma proteins through systemic capillaries 

rate of change of protein in free interstitial fluid 

rate of systemic lymphatic return of protein 

rate of loss of plasma protein 

rate of increase in right otrial volume 

rate of increase in venous vascular volume 

exercise activity, ratio to normal at rest 

exercise effect on autonomic stimulation 

constant concerned with effect of muscle cell PO2 autonomic stimulation 
during exercise 
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FJS*“ fistula parameter 

GBL*- Goldblatt hypertension parameter 

GFN- glomerular filtration rate of undamaged kidney 

GFR- glomerular filtration rate 

GFl - value of GFN on previous iteration 

GF2*- constant used in calculation of glomerular filtration rate 

GF3- degree of autoregulatory feedback at macular densa 

GF4*“ constant controlling the feedback loop for GF3 

GLP- glomerular pressure 

GPO- rate of increase of protein in gel 

GPR- total protein in gel 

HKM*- constant used in calculation of portion of blood viscosity caused by red blood 
ceils 

HM- hematocrit 

HMD- cardiac depressant effect of hypoxia 

HMK*“ constant used in calculation of portion of blood viscosity coused by red blood 
cells 

HPL- hypertrophy effect on left ventricle 

HPR- hypertrophy effect on right ventricle 

HR- heart rate 

ti 

HSL*- ‘ basic left ventricular strenght 
HSR*“- basic right ventricular strength 

HYL*“ quantity of hyaluronic acid in tissues 

I- Integration step size 

!FP- interstitial fluid protein 

II- variable integration step size utilized on stable as'-mptote 
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12 *- 

13*- 

KCD- 

KE- 

KED- 

Ki- 

KID* 

KIE- 

KIR- 

KOD- 

LPK*- 

LVM- 

MMO- 

M02- 

NAE- 

NED- 

NID*- 

NOD-. 

NOZ- 

OMM*- 

OSA- 


normal Increment on time 

maximum time increment for stable asymptote 

rate of change of intracellular potassium concentration 

total extracel luiar fluid potassium 

rate of change of extracellular potassium concentration 
total intracellular potassium concentration 
rate of potassium intake 

excess potassium concentration causing change in intracellular potassium 
level 

total expected level of potassium in the intracellular fluid under equilibrium 
conditions 

rate of renal loss of potassium 

rate constant for plasma protein production by liver 

effect of aortic pressure on left ventricular output 

rate of oxygen utilizotion by muscle cells 

rate of oxygen utilization by non-muscle cells 

total extracellular sodium ■ 

rate of change of sodium in extracellular fluids 

rote of sodium intake 

rate of renal excretion of sodium 

effect of urinary output, aldosterone, an»d sodium level on -renal excretion rate 
for sodium 

muscle oxygen utilizotion at rest 
aortic oxygen saturation 
non-muscle venous oxygen saturation 


OSV- 



OVA- 


OVS- 

02A*“ 

02M*- 

PA- 

PAM- 

PAR- 

PAl- 

PA2- 

PC- 

PCD- 

PCE*- 

PCP- 

PDO- 

PFI- 

PFL- 

PGC- 

PGH- 

PGL- ' 

PGP- 

PGR- 

PGS- 

PGV- 


oxygen volume in aortic blood 
muscle venous oxygen soturation 

sensitivity of the effect of outonomic stimulation on metabolism 
basic oxygen utilization in non-muscle body tissues 
aortic pressure- 

effect of arterial pressure in distending arteries, ratio to normal 
renal arterial pressure • 

effective pressure drive on autonomic system 
effective arterial pressure on left ventricle 
capillary pressure 

net pressure gradient across capillary membrane 
capillary pressure exponent 
pulmonary capillary pressure 

difference between muscle venous oxygen PO 2 normal venous oxygen 

rate of transfer of fluid across pulmonary capillaries 

renal filtration pressure 

colloid osmotic pressure of tissue gel 

absorbency effect of gel caused by recoil of gel reticulum 
pressure gradient in lungs 

colloid osmotic pressure of tissue gel caused by entrapped protein 
colloid osmotic pressure of interstitial gel caused by Donnan equilibrium 
pressure difference between arteries and veins 
venous pressure gradient 
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PGX- 

PIF- 

PKl*- 

PK2*- 

PK3*- 

PLA- 

PLD- 

PLF- 

PMC- 

PMO- 

•PMP- 

PMS- 

PM]- 

PM3*- 

PM4*- 

PM5*- 

POA- 

POB-^ 

POC- 

POD-' 

POE- 

POK*- 


acKvity factor for protein in the interstitial fluid 
interstitial fluid pressure 

constant used in calculating muscle cell PO 2 total volume of oxygen in 
muscle cells 

constant used in calculating muscle cell PO 2 total volume of oxygen in 
muscle cells 

constant used in calculating rate of oxygen transport to muscle cells 
left atrial pressure 

pressure gradient to cause lymphatic flov/ 

pulmonary lymphatic flow 

mean circulatory pressure 

muscle cell PO 2 

mean pulmonary pressure 

mean systemic pressure 

effective muscle cell Pqj 

minimum value allowed for PMl 

constant used in calculating rate of oxygen transport to muscle cells 
constant used in calculating rate of. oxygen transport to muscle cells 

. f 

rate of change of intermediate autoregulation vasoconstrictor effect 
rate of change of rapid autoregulation vasoconstrictor effect 
rate of change of long-term autoregulation vasoconstrictor effect 
non-muscle venous P 02 normal value 

sensitivity control for oxygen feedback control loop 
sensitivity of rapid system of autoregulation 
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POM*- 

PON*- 

POQ- 

POR^- 

POS- 

POT- 

POV- 

POY*- 

POZ*- 

P01*- 

P02- 

PPA- 

PPC- 

PPD- 

PPI- 

PPN- 

PPO- 

PPR- 

PPl- 

PP2- 

PRA- 

PRM- 


sensiHvIfy of oxygen feedback contro* loop 
sensifivify of intermediate autoregulation 
effective non-muscle ce II PO 2 

reference value of capillary Pq 2 in non-muscle tissue 

pulmonary interstitial fluid colloid osmotic pressure 

non-muscle cell Pq 2 

non-muscle yenous PO 2 

sensitivity of red ceil production 

sensitivity of long-term autoregulation 

constant used in determining oxygen deficit factor causing red cell production 

oxygen deficit factor causing red cell production 

pulmonary orterial pressure 

plasma colloid osmotic pressure 

rote of change of protein in pulmonary fluids 

pulmonary interstitial fluid pressure 

rate of pulmonary capillary protein loss 

pulmonary lymph protein flow 

total protein in pulmonary fluids 

variable used to empirically relate-pulmonary arterial pressure and pulmonary 
arterial resistance 

effective pulmonary arterial pressure 
right atrial pressure 

pressure caused by compression of interstitial fluid ge! reticulum 



PRP- ■ 

PRl- 

PTC- 

PTS- 

PTT- 

PVG- 

PVO- 

PVS- 

PIO- 

P20- 

QAO- 

QLN- 

QLO- 

QOM- 

Q02- 

QPO- 

QRF*- 

QRN- 

QRO- 

QVO- 

RAM*- 

RAR*- 

RBF- 


tofai plosmo proi-ein 

effective right atrial pressure 

interstitial fluid colloid osmotic pressure 

solid tissue pressure 

total tissue pressure 

venous pressure gradient 

muscle venous P02 

average venous pressure 

tissue P02 effective in oxygen utilization 

muscle cell P02 effective in depressing rate of metabolism 

blood flow in the systemic arterial system 

basic left ventricular output 

output of left ventricle (cardiac output) 

total volume of oxygen in muscle cells 

non-muscle total cellular oxygen 

rate of blood flow into pulmonary veins and left atrium 

feedback effect of left ventricular function on right ventricular function 

basic right ventricular output 

actual right ventricular output 

rate of blood flow from veins into right atrium 

basic vascular resistance of muscles 

basic resistance of non-muscular and non-renal arteries 

renal blood flow 



RCD- 


RCl- 

RC2- 

RDO- 

REK*- 

RFN- 

RKC*- 

RMO- 

RPA- 

RPT- 

RPV- 

RR- 

RSM- 

RSN- 

RTP- 

RVG- 

RVM- 

RVS- 

SR*- . 

SRK*- 

STA*- 

STH- 

SVO~ 


rate of change of red cell mass 
red cell production rate 
red cell destruction rote 

resistance of diffusion of oxygen from capillaries to cells 

fraction of normal renal function 

renal blood flow if kidney is not damaged 

rote constant for red cell destruction 

rate of oxygen utilization by tissues 

pulmonary arterial resistance 

pulmonary .vascular resistance 

pulmonary venous resistance 

renal resistance 

vascular resistance in muscle 

vascular resistance in non-muscle, non-renal tissues 
total peripheral resistance 
resistance from veins to right otrium 

depressing effect of pulmonary arterial pressure on right ventri 
venous resistance 

intensity factor for stress relaxation 
time constant for stress relaxation 

overriding value of overall activity of autonomic system AU 
effect of tissue hypoxia on salt and water intake 
stroke volume output 



TRR- 

TVD- 

TVZ- 

Tl- 

U*- 

VAE- 

VAS- 

VB- 

VBD- 

VEC- 

VG- 

VGD- 

VFB- 

VIC- 

VID- 

VIE- 

VfF- 

VIM- 

VLA- 

VLE- 

VP- 
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total time elapsed 
tubular reabsorption rate 
rate of drinking 

combined effect of tissue ischemia and central nervous stimulation on thirst 
and drinking 

total time elapsed on previous step 
damping factor for QPO 

excess volume in systemic arteries that causes stretch of arterial wails 
volume in systemic arteries 
blood volume 

volume correction factor added to systemic circulation to allow for updating 
blood volume 

t 

exrracelluiar fluid volume 
volume of interstitial fluid gel 
rate of change of tissue gel volume 
blood viscosity, ratio to that of water 
cell volume 

rate of fluid transfer between interstitial fluid and cells 
portion of blood viscosity caused by red blood cells 
volume of free interstitial fluid 
blood viscosity, ratio to normal 
volume in left atrium 

excess volume in left atrium causing stretch of left atrium and pulmonary veins 
plasma volume 
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VPA- 

VPD- 

VPE- 

VPF- 

VRA 

VRC- 

VRE- 

VTC- 

VTD- 

VTL- 

VTS- 

VTW- 

VUD- 

VVE- 

VVR" 

VVS- 

VV6- 

VV7- 

VV8- 

VV9*~ 

V2D^- 

X*- 


volume tn pulmonary arteries 
rate of change of plasma volume 

excess volume in right atrium causing stretching of the right atrium 
pulmonary free fluid volume 
right atrial volume 
volume of red blood cells 

excess volume in right atrium causing stretching of the right atrium 

rate of fluid transfer across systemic copillary membrances 

rate of volume change in total interstitial fluid 

rate of systemic lymph flow 

total interstitial fluid volume 

total body water 

rate of urinary output 

excess venous vascular volume before stress relaxation correction 
volume of blood in veins at zero venous pressure 
venous vascular volume 

rate of change of vascular stress relaxation effect 
increased vascular volume caused by stress relaxation 

excess volume of blood in the systemic veins after stress relaxation correction 
reference venous vascular volume 

resistance factor which converts pressure drop to rate of change of tissue gel 
volume 

damping factor for QVO 
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Y*- ■ 
Z^- 

Zl*- 

Z3*- 

Z4*- 

Z5*- 

Z6*- 

Z7*- 

Z8*- 

Zio*- 

zn*- 

Z’<2*- 

Z13*- 


damping fcctor for DAU 

damping foclor for AH, DAU, DFP, DLP, DPC, DPL, GFN, GPD, KCD, NOD, 
POA, POB, PPD, TVD, VID, VTC, VTL, VUD, VV6 (1.0) 
damping facror for VPD 
damping facfor for VP 

time constont used to colculate non-muscle cell total cellular oxygen 

time constant used to calculate volume of oxygen in muscle cells 

damping factor for OVS 

damping factor for OSV 

time constant of autonomic response 

constant used to calculate effect of tissue hypoxia on salt and water intake 
constant used to calculate effect of tissue hypoxia on salt and water intake 
constant that converts exercise activity to autonomic stsmulcticn 
constant used In calculating heart hypertrophy 



The following is a -list of all variables recently added to the long term model. 


A* 

AKA* 

AMS 

AM2 

ANAR* 

ANCN* 

ANER* 

ANGS 

ANGT* 

ANK 

ANMM* 

ANSS 

ANTC* 

AN2 

AN3 

ATH* 

AUAB 

AUCB 

AUHl 

AUH2 


sensitivity of suppressive effect of ar^iotensin on renin secretion 

damping factor involved in angiotensin production 

short-term muscle autoregulatory effect (This was formerly 

called AMM. ) 

intermediate-term muscle autoregulatory effect 

sensitivity of angiotensin effect on afferent arteriolar resistance in the 
kidney 

- normal angiotensin concentration in plasma 

- sensitivity of angiotensin effect on efferent arteriolar resistance in the 
kidney 

- fractional suppression of renin secretion influenced by angiotensin 
concentration 

- time constant for attainment of angiotensin suppression of renin 

- angiotensin effect on tubular reabsorption 

- maximxim effect of angiotensin 

- steady-rstate fractional renin si^)pression caused by angiotensin 

- exponential parameter used to obtain angiotensin dose— response curve 

- angiotensin n amount 

- parameter used to obtain angiotensin dose-rresponse curve 

- sensitivity of angiotensin effect on thirst and salt intake 

- autonomic response of aortic baroreceptors 

- autonomic response of carotid baroreceptors 

- initial response of pressure effect on contractility 

- adapted response of contractility due to pressure 
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AUH3 - extent of adaptation of contractility response due to pressure 

ASK* - time constant for intermediate-term muscle autoregulation 

B* - sensitivity of suppressive effect of renal tubular sodium flow on renin 

secretion 

CAA* - time constant for angiotensin destruction 

CAB* - sensitivity of total baroreceptor effect on aortic baroreceptors 

CAIV* - ai^iotensin infusion rate 

CAS* - rate constant for ai^iotensin production from renin 

CCB* - sensitivity of total baroreceptor effect on carotid baroreceptors 

CRA* - time constant for renin destruction 

DESC* - delay in renal response used during salt loading 

GP 1 + _ sensitivity of angiotensin effect on renal tubular reabsorption 

KO* - controlled value for potassium excretion 

NAO* - controlled value for sodium excretion 

POF - sensitivity control for intermediate-term muscle autoregulatory loop 

POU* - sensitivity of intermediate-term muscle autoregulation 

RC “ plasma renin concentration 

RNA* - controlled intake rate of sodium 

RNK* - damping factor involved in renin production 

RNS - rate of renin secretion per gram of kidney 

RSR - total rate of renin secretion for 300 grams of kidney 

RT - total renin amount in plasma 

RTR* - controlled infusion rate of water 

SRL* - time constant for intermediate vascular stress relaxation 

SRM* - time constant for long term vascular stress relaxation 

SRI* - intensity factor for intermediate vascular stress relaxation 
SR2* - intensity factor for long term vascular stress relaxation 

UOC* - delay time constant for kidney during salt loading 
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VASO 

VIL* 

VINT* 

VLAO 

VOB* 

VOT 

VOTl 

VOT2 

VOT3 

VPAO 

VRAO 

VUGF 

VVSO 

V61 . 

V62 

V71 

V72 

X6* 

X7* 

X8* 


- iinstressed volume of arterial compartment 

- controlled insensible water loss rate 
“ controlled intake rate for water 

- unstressed volume of pulmonary venous and left atrial compartment 

- controlled urinary output rate 

- total body systemic unstressed volume 

- initial arterial pressure effect on whole-body unstressed volume 

- adapted arterial pressure effect on whole-body unstressed volume 

- extent of adaptation of arterial pressure effect on whole-body unstressed 
volume 

- unstressed volume of pulmonary arterial compartment 

- unstressed volume of right atrial compartment 

- urinary flow due to filtration 

- unstressed volume of venous compartment 

- rate of change of intermediate stress-relaxation effect 

- rate of change of long term stress-relaxation effect 

- increased vascular volume caused by intermediate stress relaxation , 

- increased vascular volxune caused by long- term stress relaxation 

- weighting factor for short term vascular stress relaxation 

- weighting factor for intermediate-term vascular stress relaxation 

- weighting factor for long term vascular stress relaxation 



APPENDIX B 


INDEX OF VARIABLES AND INITIAL VALUES 

FOR' ■ • ■ 

CARDIOVASCULAR MODEL 
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TABLE 1 
DEFINITIONS 


ELEMENT 

NO. 

MNEMONIC 

DEFINITION 

CONSTANT OR 
INITIAL VALUE 

UNITS 

1 

x(i) 

Stressed Vol. , RT. Atrium 

101.0 

ml 

2 

X(2) 

” " j RT. Ventricle 

246.7 

It 

3 

X(3) 

" " , Left Atrium 

'.43.3 


4 

x(4) 

" " , Left Ventricle 

244.6 

tl 

5 

X(5) 

" " , Pulmonary Arteries 

8.4 

It 

6 

x(6) 

" ” , " Arterioles 

11.7 


7 

X(7) 

’’ " , " Venules 

:30.5 

It 

8 

X(8) 

" " , Aortic Arch 

19.0 


9 

X(9) 

Inertance Integral 

0.0 

— 

10 

x(io) 

Integral of Aortic Arch 

0.0 

mraHg-sec 

11 

X(ll) 

Pres sure /Beat 
Jnertance Integral 

0.0 


12 

X(12) 

Stressed Vol., Thoracic Aorta 

14.9 

ml 

13 

X(13) 

Integral of Carotid 

b.o 

mraHg-sec 

l4 

X(l4) 

Pressure/Beat 

Stressed Vol., Abdominal Aorta 

15.3 

ml 

ft 

15 

X(I5) 

" " , Common Iliac Arteries 

i4.8 

Tt 

16 

X(16‘) 

" ” , Legs Small Arteries 

59.4 

M 

17 

X(17) 

" " , Legs Arterioles 

4.0 

It 

18 

x(i8) 

" " . Legs Venules 

118.2 

ft 

19 

X(19) 

" " , Legs Small Veins 

200.0 

II 

20 

x(20) 

" ", Femoral Veins 

42.0 


21 

X(21) 

Total Vol., Abdominal Vena Cava 

385.2 

It 

II 

22 

X(22) 

Total Vol., Thoracic Vena Cava 

274.4 

It 

23 

X(23) 

Total Vol., Superior Vena Cava 

37.9 

IT 

24 

X(24) 

Stressed Vol., Lower Carotid Arteries 

8.75 

It 

25 

X(25) 

" " , 'Cpper Carotid Arteries 

29.0 

Tl 

26 

X(26) 

" " , Head Small Veins 

74.8 " 

It 

27 

X(27) 

" " , Jugular Veins 

3.6 

t! 

28 

X{28) 

" " , Superior Mesenteric 

230.1 


29 

X(29) 

Veins 

Stressed Vol., Upper Thoracic Aorta 

15.0 

t! 

30 

X(30) 

Stressed Vol. , Portal Veins 

109.5 

It 

31 

x(3l) 

" " , Renal Arteries 

16.2 

II 

If 

32 

X(32) 

" " , Renal Veins 

47.3 

tl 

33 

x(33) 

Integral of Left Vent. Flow/Beat 

0.0 


34 

X(34) 

Inertance . Integral 

0*0 


35 

X(35) 

It " 

0.0 


36 

37 

• x(36) 
X(37) 

11 It u.u 

Integral of Upper Thoracic Aortic Pressure 0.0 

ramHg-sec 

38 

X(38) 

Not Used 



39 

x(39) 

11 



4o 

x(4o) 

U 





ELEMENT 

NO. 

MNEMONIC 


DEFINITION 

CONSTANT OR 
INITIAL VALUE 

26 

UNITS 

kl 

x(4i) 





k 2 

X(42) 





h 3 

x(43) 





kk 

X(44) 





45 

X(45) 





46 

x(46) 





47 

x(47) 





48 

X(48) 





49 

x(49) 





50 

X(50) 





51 - 100 





101 


Plow 

from RT. Atrium 

Computed 

ml/sec 

102 

QRV 

tl 

" RT . Ventricle 

Variable 

It 

103 

OLA. 

It 

" Left Atrium 

TT 

11 

104 

QLV 

IT 

" " Ventricle 

ri 

It 

105 

QPA 

tr 

" Pulmonary Arteries 

It 

tt 

106 

QPC 

11 

" Pulmonary Arterioles 

IT 

It 

107 

QPV 

ti 

" " Venules 

IT 

11 

108 

QAA 

IT 

" Aortic Arch 

IT 

IT 

109 


Not 

Used 



no 


tr 

11 



111 

Q,UTA 

Flow 

From Upper Thoracic Aorta 

Computed 

ml/sec 

112 

QLTA 

Flow from Lower Thoracic Aorta 

Variable 

Tl 

113 


Not 

Used 



ll4 

QIABA 

Flow from Abdominal Aorta 

tl 

tt 

115 

QCILL 

Flow from Common Iliac Arteries 

ir 

tt 

ll6 

^GSA 

It 

" Leg Small Arteries 

tt 

It 

117 


Kot 

Used 



118 

OJXJCAP 

Flow from Leg Arterioles 

tr 

It 

119 

QliGVE 

IT 

" Leg Venules 

tt 

IT 

120 

^SV 

IT 

" Leg Small Veins 

Tl 

Tl 

121 

QEEV 

TT 

" Femoral Veins 

TT 

It 

122 

QABVC 

Tt 

" Abdominal Vena Cava 

T! 

It 

123 

QIH7C 

I! 

" Thoracic " " 

It 

tt 

124 

QBWC 

IT 

" Superior Vena Cava 

IT 


125 

QLOC 

Flow to Lower Carotid Arteries 

tt 


126 

Q.UPC 

IT 

" Upper " " 

If 

IT 

127 

QHCAP 

IT 

from Upper Carotid Arteries 

It 


128 

QHSV 

t! 

from Head Small Veins 

It 

IT 

129 

QJ7 

Tt 

from Jugular Veins 

It 

Tl 

130 

Q.C0R 

Coronary Blood Flow 

Tl 
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ELEMENT CONSTANT OE 


NO, 

MNEMONIC 

DEFINITION INITIAL VALUE 

UNITS 

131 

QCSMA 

Flow to Superior Mesenteric Veins 

Computed 

ml/sec 

132 


Not. Used 


Variable 

tr 

133 

QCSM 7 

Flow from 

Superior Mesenteric Veins 

tr 

tt 

134 


It Tt 

Portal Veins 

It 

ri 

135 


Not Used 


It 

tr 

136 

QRENA 

Flow to Renal Arteries 

tt 

t! 

137 

QEALE 

Flow from Renal Arteries 

I! 

U 

138 

qeenv 

tr ti 

Renal Vein 

TI 

ri 

139 

QEET 

Flow to ET. Atrium 

n 

ri 

140 

QP( 1 ) 

Long Term Flow Change in Renal Arteries " 

11 

l 4 l 


11 tr 

• n 

" " ” Superior Mesenteric arteries 

tr 

142 


tr 11 

" " " Leg Arteries* 

, It 

't 

tr 

i 43 


Not Used 






Not Used 




i 45 


Not Used 




146 


Not Used 




i 47 


Not Used 




l 48 


Not Used 

- 



149 

QP(lO) 

Not Used 




150 

QSKB 

Flow Through Skeleton, Bone Marrow, 

Computed 

ml/sec 



and Fat 

/ 

Variable 

M 

151 

CRA 

Compliance, Right Atrium 

ir 

ml/mraHg 

152 

CRV 

ri 

, Eight Ventricle 

tr 

ri 

153 

CIA 

11 

, Left Atrium 

ir 

ri 

154 

CLV 

11 

, Left Ventricle 

n 

M 

155 

CPA 

It 

, Pulmonary Arteries 

1.2 

ml/mmHg 

156 

CPC 

It 

" Arterioles 

1.7 

It 

157 

CPV 

ti 

" Venules 

5.3 

tr 

158 

CAA 

• IT 

, Aortic Arch 

0,25 


159 


Not Used 




160 


Not Used 




161 ■ 

CUTA 

Upper Thoracic Aorta 

0.2 


162 

CLTA 

Lower Thoracic Aorta 

0.2 


163 


Not Used 




l 64 

CLABA 

Abdominal Aorta 

0.21 


165 

CCILL 

Compliance, Common Iliac Arteries 

0.2 

tr 

166 

CLGSA 

tr 

, Leg Small Arteries 

0.8 

IT 

167 

CLGAR 

tt 

, Leg Arterioles 

0.3 

ir 

168 

CLOVE 

tr 

, Leg Venules 

3.956 

tr 

169 

CLGSV 

tt 

, Leg Small Veins 

3.14 

11 

170 

CEEV 

Tt 

, Leg Femoral Veins 

0 .6 

ti 

171 


Temporary Storage 



172 


TI 

TT 



173 


It 

TI 



174 

CL 0 C 

Compliance, Lower Carotid Arteries 

0.12 ■ 

TI 

175 

CUPC 

tr 

, Upper " ” 

0.3996 

tr 

176 

CHSV 

IT 

, Head Small Veins 

5.3 

It 

177 

CJV 

It 

, Jugular Veins 

0,9058 

It 

178 

CCSMV 

IT 

, Superior Mesenteric Veins 

9.59 

It 

179 


Not Used 


- 

Tt 

180 

CP 0 V 

Tt 

, Portal Veins 

6.047 
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ELEMENT 

NO. 

■MNEMONIC 

181 

CRENA • 

182 

CRENV 

183 

cd(i) 

184 


185 


186 


187 


188 


189 


190 


191 


192 


193 


194 


195 


196 


197 


198 


199 


200 

cd(i8) 


DEFIKITIQg 


CoinpXiance , Renal Arteries 
" , Renal Veins 

Not Used 

Tt 

ir 

tt 

II 

II 

ti 

It 


IT 


CONSTANT OR 

INITIAL VALUE UNITS 

0.2224 " 

2.517 


It 



29 


CALCULATED VARIABLES ROE EACH VOLUME COMPARTMEICT 


ELEME13T 

PRESSURE 




PRESSURE DUE 


EXTERNAL 

VOLUME 

NO. 

(mtn Hr) 




TO GRAVITY 


PRESSURE 

C0MPART14EHT 

201 

PEA 

321 

V(l) 

421 

PG(1) 

455 

PEXT(l) 

RT. Atrivim 

202 

PRV 

322 

V(2) 

422 

PG(2) 

456 

PEXT(2) 

RT. Veatricle 

203 

PLA 

323 

V(3) 

423 

PO(3) 

457 

PEXT(3) 

Left Atrium 

204 

PLV 

324 

v(4) 

424 

PG(4) 

458 

PEXT(4) 

Left Ventricle 

205 

PPA 

325 

v(5) 

425 

PG(5) 

459 

PEXT(5) 

Pulmonary Ar- 
teries 

206 

PPC 

326 

V(6.) 

426 

pg(6) 

460 

PEXT(6) 

Pulmonary Ar- 
terioles 

207 

PP7 

327 

V(7) 

427 

PG(7) 

461 

PEXT(7) 

Pulmonary Veins 

208 

PAA 

328 

V(8) 

428 

PG(8) 

462 

PEXT(8) 

Aortic Arcla 

209 

Temporary Storage 

429 

PG(9) 

463 

PEXT(9) 


210 

It 

It 


430 

PG(lO) 

464 

PEXT(lO) 


211 

FUTA 

tr 


431 

PG(ll) 

465 

PEXT(ll) 

Upper Thor .Aorta 

212 

PLTA 

332 

V(12) 

432 

PG(i2) 

466 

PEXT(12) 

Lower Thor .Aorta 

213 

Temporary Storage 

433 

PG(13) 

467 

PEXT(13) 

Abdominal Aorta 

214 

PLABA 

334 

V(l4) 

434 

PG(i4) 

468 

pext(i4) ^ 

215 

PCILL 

335 

V(15) 

435 

PG(15) 

469 

PEXT(15) 

Common Iliac 
Artery 

216 

PLGSA 

336 

V(l6) 

436 

pg(i6) 

470 

PEXT(i6) 

Leg Small Art- 
eries 

217 

PLOAR 

337 

V(17) 

437 

PG(17) 

471 

PEXT(17) 

Leg Arterioles 

218 

PLGVE 

338 

V(l8) 

438 

PG(18) 

472 

pext(i8) 

Leg Veins 

219 

PLGSV 

339 

V(19) 

439 

PG(19) 

473 

PEXT(19) 

Leg Small Veins 

220 

PEEV 

34o 

V(20) 

440 

PG(20) 

474 

PEXT(20) 

Femoral Veins 

221 

PABVC 

34i 

V(2l) 

44i 

PG(21) 

475 

PEXT(2l) 

Abdominal Vena 
Cava 

222 

PTH7C 

342 

V(22) 

442 

PG(22) 

476 

PEXT(22) 

Thoracic Vena 
Cava 

223 

PSPVC 

343 

V(23) 

443 

PG(23) 

477 

PEXT(23) 

Superior Vena 
Cava 

224 

PL0(J 

344 

V(24) 

444 

PG(24) 

478 

PEXT(24) 

Lower Carotid 
Arteries 

225 

PUPC 

345 

V(25) 

445 

PG(25) 

479 

PEXT(25) 

Upper Carotid 
Arteries 

226 

PHSV 

346 

V(26) 

446 

PG(26) 

480 

PEXT(26) 

Head Small Veins 

227 

PJV 

347 

V(27) 

447 

PG(27) 

481 

PEXT(27) 

Jugular Veins 

228 

ICSMV 

348 

V(28) 

(n ; . 

Not Used 

448 

PG(28) 

482 

EEXT(28) 

Superior Mesen- 
teric Veins 

229 

Not Used 

349 

449 

Not Used 

483 

Not Used 


230 

PP0V 

350 

V(30) 

450 

PG(30) 

484 

PEXT(30) 

Portal Veins 
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CALCUIATED VARIABLES BOS EACH V 0 LI 3 ME CCMBARTMEmJ 


ELEMENT 

PEESSUEE 

TOTAL VOLUME PRESSURE DUE EXTERNAL 

VOLUME 

NO. 

(mm Hg) 

(ml) TO GRAVITY 

PRESSURE 

COMPARTMENT 

231 

PEEKA 

351 V( 31 ). 451 PG( 31 ) 

485 PEXT( 31 ) 

Renal Arteries 

232 

. PRENV 

352 V( 32 ) 4.52 PG( 32 ) 

486 PEXT( 32 ) 

Renal Veins 

233 

PD( 1 ) Mean. Upper Thoracic Aortic Pressure 



234 

Not Used 

453 -’454 Not Used 


235 

Not Used 353 - 368 -Not Used 



236 

11 IT 

369 - V( 49 ) Blood Volume Command 

= 5062,4 ml 


237 

It Tt 

370 - V( 50 ) Total Blood Volume = 

5062.4 ml 


238 

. It tr 




239 

11 tt 




24 o 

ir ' n 




2 ll , 

ti 11 




242 

11 TI 




243 

M n 




244 

Tt M 




245 

IT TI 




246 

IT 11 




247 

IT 11 




248 

tr IT 




249 

PM Mean Arterial Pressure 

90.0 

irniiHg 

250 

PMC Mean 

Carotid Arterial Pressure 

90.0 

mmHg 

ELEMENT 



CONSTANT OR 


NO. 

MNEMONIC 

DEFINITION ■ INITIAL VALUE 

UNITS 

’251 

EEA 

RT. Atrium Valve Resistance 

0.007508 

mmHg/ml/sec 

252 

REV 

RT. Ventricle Valve Resistance 

0.007508 

Tt 

253 

EMV 

Left Atrium Valve 

0.007508 

TI 

254 

EAV 

Left Ventricle Valve 

o.oo 4 

IT 

255 

EPA 

Pulmonary Arterioles 

0.01502 


256 

RPC 

Pulmonary Capillaries 

0.05255 

M 

257 

EPV 

Pulmonary Venules 

0.01502 


258 


Not Used 



■259 


Not Used 



260 

EUTA 

Upper Thoracic Aorta 

0.012 


261 

ELTA 

Lower Thoracic Aorta 

o.o4 

IT 

262 


Not Used 

0.0 


263 

RLABA 

Abdominal Aorta 

0.034 


264 

RCILL 

Common Iliac Arteries 

0.034 


265 

ELGSA 

Leg Small Arteries 

0.03003 


•266 

ELGAR 

Leg Arterioles 

4.505 


267 

ELGCAP 

Leg Capillaries 

0.4505 

IT 

268 

ELGVE 

Leg Venules 

0.07508 


269 

ELGSV 

Leg Small Veins 

0.07508 


270 

RFEV 

Femoral Veins 

0.02102 
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ELEMENT 

NO. 

MNEMONIC 

DEFINITION 

CONSTANT OR 
INITIAL VALUE 

UNITS 

271 

RABVC 

Abdominal Vena Cava 

0.007380 

mtnHg/ml/sec 

272 

RTH 7 C 

Thoracic Vena Cava 

0.007508 

tl 

273 

RSWC 

Superior Vena Cava 

0.01502 

It 

274 

RL 0 C 

Lower Carotid' Arteries 

0.1 

tl 

275 

RUPC 

Upper Carotid Arteries 

0.03378 

It 

276 

RHCAP 

Head Capillaries 

3.431 

n 

277 

RHSV 

Head Small Veins 

0.3754 

M 

278 

RJT 

Jugular Veins 

0.004302 

tr 

279 

RC 0 R 

Coronary 

15.390 

1! 

280 

RCSMA. 

Superior Mesenteric Arteries 

2.35 

It 

281 


Not Used 


It 

282 

RCSMV 

Superior Mesenteric Veins 

0.2252 

n' 

283 

RPOV 

Portal Veins 

0.5255 

tt 

284 


Not Used 


11 

285 

RREMA 

Renal Arteries 

0.01502 

11 

286 

RRME 

Renal Arterioles 

0.45045 

tl 

287 

RREFF 

Efferent Arterioles 

2.744 

tl 

288 

RRENV 

Renal Veins 

0.6494 

It 

289 

rd(i) 

Not Used 



290 


t! M 



291 


Not Used 



292 


tl Tt 



293 


t1 tl * 



294 


tl tl 



295 


tl It 



296 


U t! 



297 


It tl 



298 


It tl 



299 

ED(ll) 

It 11 



300 

I^KB - 

Skeleton and Fat 

5.150 

11 

301 

FLPA 

Inertance, Pulmonary Arteries 

0.0007508 

mmHg/ml/sec‘^ 

302 

FLAA 

" , Aortic Arch 

0.002 

II 

303 


Not Used 



304 


tl tl 



305 

JliUTA 

Inertance, Upper Thoracic Aorta 0.004 


306 

FLLTA 

Inertance, Thoracic Aorta 

0.004 

tl 

307 


Not Used 



308 

FLIABA 

Inertance, Abdominal Aorta 

o.oo4 

tl 

309 


Not Used 


tt 


310 - 320 


Hot Used 



UNSTRESSED VOLUMES 
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ELEMENT 



CONSTANT OR 


NO. 

MNEMONIC 

DEFINITION 

INITIAL VALUE 

UNITS 

371 

VU(l) 

Et. Atrium 

30.0 

ml 

372 

VU(2) 

Et. Ventricle 

0.0 


373 

VU(3) 

Left Atrium 

30.0 


37^1 

VU(4) 

Left Ventricle 

0.0 


375 

VU(5) 

Pulmonary Arteries 

85.0 


376 

vu(6) 

Pulmonary Arterioles 

15.0 


377 

vu( 7 ) 

Pulmonary Veins 

400.0 


378 

vu(8) 

Aortic Arch 

61.6 


379 

vu(9) 

Not Used 



380 

vu(io) 

tr ' Tt 



381 

vu(ll) 

ti 11 



382 

VU(12) 

Thoracic Aorta 

90.5 


383 

vu(i3) 

Not Used 



384 

■ vu(i 4 ) 

Abdominal Aorta 

43.5 


385 

VU(15) 

Common Iliac Arteries 

5.19*+ 


386 

VU(l6) 

Leg Small Arteries 

30.0 


387 

VU(17) 

Leg Arterioles ■ 

30.0 


388 

VU(l8) 

Leg Venules 

162.0 


389 

VU(19) 

Leg Small Veins 

188.0 


390 

VU(20) 

Femoral Veins 

4 o.o 


391 

VU(2l) 

Not Used 



392 

VU(22) 

It tl 



393 

VU(23) 

It n 



39^ 

VU(24) 

Lower Carotid Arteries 

50.0 


395 

VU(25) 

Upper Carotid Arteries 

50.0 


396 

VU(26) 

Head Small Veins 

509 .-0" ■ 


397 

VU(27) 

Jugular Veins 

28.0 


398 

vu(28) 

Superior Mesenteric’ Veins 

562.0 


399 

VU(29) 

Not Used 


i ” 

400 

vu,(30) 

Portal Veins 

375.0 


4 01 

VU(31) 

Renal Arteries 

50.0 

11 

4o2 

VU(32) 

Eenal Veins 

150.0 


403 - 

420 

Not Used 



487 

E(l) 

Eight Atrial Elastance 

Computed Variable 

mmHg/ml 

488 

E(2) 

Right Ventricle Elastance 

n It 


489 

E(3) 

Left Atrial Elastance 

n It 


490 

e(4) 

Left Ventricle Elastance 

11 tr 


491 

TEN 

Pressure Set Point 

88-0 

mmHg 

492 

ABIAS 

Abdominal Vena Cava Compliance 





Curve Bias 

2.55 

- 

493 

TBIAS 

Thoracic Vena Cava Compliance 





Curve Bias 

3.6 

- 

-494 , 

TTHAZ 

Tilt Down Time 

9999. 

- 

495 

TMODEL 

Tilt Exp. Select 

0. 


496 

SPACE (l). 

Not Used 



497 

SPACE(2) 

Press, at Exit Valves in Legs(lg) 2-5 

mmHg 

498 

SPACE(3) 

Effective Circulating Blood 

• 




Volume 

Computed Variable 

ml 

499 

space(4) 

PTIS-Tissue Press, in Legs 

2.0 

mmHg 

500 

SPACE (5) 

PGBIAS“Long Term Tissue Press. 

Bias 0 . 

mmHg 
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ELEMENT 

NO. 

MNEMONIC 

DEFINITION 

CONSTANT ON 
INITIAL VALUE 

UNITS 

501 

z(i) 

Length of Vascular Segment 

0.0 

cm 

502 

Z( 2 ) 

IT 

0.0 

IT 

503 

Z( 3 ) 

* IT 

0.0 

It 

5o4 

z( 4 ) 

IT 

0.0 

Tt 

505 

Z( 5 ) 

t1 

o'.o 

IT 

506 

z(6) 

11 

0.0 

Tt 

507 

Z( 7 ) 

IT 

0.0 

It 

508 

Z(8) 

IT 

^ 7.0 

tl 

509 

z(9) 

IT 

0.0 

It 

510 

z(io) 

IT 

0.0 

It 

511 

z(ii) 

It 

0.0 

Tt 

512 

Z( 12 ) 

It 

10.0 

tl 

513 

Z( 13 ) 

Tt 

10,0 

Tl 

514 

z(l 4 ) ■ 

It 

16.0 

Tt 

515 

Z( 15 ) 

It 

6.0 

tl 

516 

Z(l6) 

T! 

16.0 

Tl 

■ 517 

z(l 7 ) 

tt 

0.0 

Tl 

518 

z(i8) 

Tl 

0.0 

Tl 

519 

Z( 19 ) 

ri 

16,0 

rt 

520 

z(20) 

tt 

i 4 ,o 

Tl 

521 

Z( 21 ) 

tt 

i 4 .o 

tl 

522 

Z( 22 ) 

tt 

2.0 

Tt 

523 

Z( 23 ) 

tl 

- 7.0 

Tl 

524 

Z( 24 ) 

11 

-l 4.0 

Tt 

525 

Z( 25 ) 

tt 

0.0 

It 

526 

Z( 26 ) 

It 

0.0 

11 

527 

Z( 27 ) 

tt 

-i 4 .o 

tt 

528 

z(28) 

IT 

0.0 

ir 

529 

Z( 29 ) 

It 

0.0 

11 

530 

Z( 30 ) 

It 

0.0 

It 

531 

z(3l) 

IT 

0.0 

It 

532 

z( 32 ) 

. IT 

0.0 

Tt 

533 

z(33) 

tt 

0.0 

Tl 

534 

z( 34 ) 

Tl 

0.0 

tt 

535 

Z( 35 ) 

It 

0.0 

n 

536 

z( 36 ) 

Tt 

0.0 

IT 

537 

Z( 37 ) , 

Tt 

0.0 

11 

538 

z( 38 ) 

tl 

0.0 

IT 

539 

z(39) 

T! 

O'.O 

tt 

540 

z( 4 o) 

tl 

0.0 

Tt 

54i 

wk(i) 

Time(Sec)j LBNP Steps or Work 

Protocol Section 


542 

¥K(2) 


tt 


543 

NK(3) 


M 


544 

nk( 4 ) 

tl Tl 

11 


545 

NK( 5 ) 

tl tl 

Tl 


546 

WK(6) 

tl Tt 



547 

WK( 7 ) 

1! Tt 

ri 


548 

nk(8) 

It tt 

1? 


549 

wk(9) 

tt It 

If 


550 

NK(lO) 

IT tt 

It 




ELEMENT 

NO. 

. MNEMONIC 

DEFINITION 

CONSTANT OR 
INITIAL VALUE 

UNITS 

551 

wK(n) 

Time (Sec), LBNP or Work Steps 

Protocol Section 


552 

NK(12) 

11 It 

tJ 


553 

NK( 13 ) 

It ti 

t! 


55 ^ 

wk(i 4 ) 

It ti 

rt 


555 

WK( 15 ) 

It tt 

11 


556 

nk(i6) ' 


If 


557 

nk(it) 

It tt 

n 


558 

nk(i8) 

tt tt 

ti 


559 

NK(19) 

tt It 

u 


560 

WK(20) 

Finish Time 

It 

Sec. 

561 

HR 

Heart Rate 

Calculated 

Beats/Min 

562 

SY 

Stroke Volume 

u 

Liters 

563 

CO 

Cardiac Output 

ri. 

Liters/Min 

564 

RT 

Total Peripheral Resistance 

tt 

mmHg/L/Min 

565 

PEX 

Exercise Boolean (Floating) 

0,0 

KPM/Min 

566 

W 

Work Rate 

0,0 

567 

PSYS 

Systolic Blood Pressure 

Calculated 

mmHg 

568 

PDYB 

Diastolic Blood Pressure 

tt 

It 

■ ' _ . 

569 

PREO 

Respiratory Frequency 

r; 

Beats /Min 

570 

V 02 D 0 T 

Oxygen Uptake 

ti 

Liters Og/Min 

571 

AYD 

Arterio-Venous Og Difference 

ti 

Liters Og 

572 

PIAB 

Intra- Abdominal Pressure 

!1 

Liters blood 
mmHg 

573 

PITH 

Intra- Thoracic Pressure 

It 

T! 

574 

PMP 

Leg Muscle Pump During Exercise 

n 


575 

THETA 

Body Angle Relative to Horizontal 

Degrees 

576 

SF 

Constriction Strength Factor 

- 0.48 

- 

577 

TTOT 

Heart Period 

0.833 

Sec. 

578 

TAS 

Period of Systole 

0.19 

Sec. 

579 

TVS 

Period of Diastole 

0.36 

Sec. 

580 

Cl 

Gain Constant 

46 -. 0 

«•> 

581 

C 2 

Gain Constant 

10.0 

■■ 

582 

GNEW 

Gain Constant 

’• 0.015 


583 

PEXIN 

Pressure Set Point 

88.0 

mmHg 

584 - 


Not Us.ed 


- 

585 - 

599 

Not Used 

- 

- ■ 

600 

VLEG 

Total Leg Blood Volume 

Calculated 

ml 
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INDEX OF VARIABLES AND INITIAL VALUES 

FOR 

THERMOREGULATORY MODEL 
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THERMOKEGUIATORY - COMMON LOCATIONS 


Location 

Variable 

Name 

Constant or 

Description Initial Value 

Units 

1 

qSASAL 

Basal Metabolic Rate 

283 . 

Btu/hr 

2 

UEFF 

Efficiency of work performed 

22. 

I0 

3 

TCAB 

Temp. Cabin 

75 . 

°F 

1+ 

TW 

Temp. Wall 

75 . 


5 

TDEWC 

Dew Point Temp. 

, 52 . 

0 

F 

6 

VCAB 

Ventilation Vel. 

20, 

Ft/ sec 

7 

VEFF 

Ventilation Eff. 

100. 

I0 

8 

PCAB 

Cabin Pressure 

i4.7 

Psia 

9 

G 

Gravity (Normal to earth) 

1. 

Nondimen- 

sional 

10 

CLOV 

Clothing (effective thickness) 

.1 


11 

BUG 

Emmissivity Clothing 

.99 

Nondimen- 

sional 

12 

CPG 

c air 
P 

.22 

Btu/lb °F 

13 

DT 

Integration step size 

.05 

Min 

l4 

ERINTl 

Print interval 

1. 

Min 

15 

SETl 

Run time 

240. 

Min 

l6 

XIPOS 

Position index 

1. 

ll=standing 
2..=sitting 
3 . =supine 

17-26 

ACE (10) 

Area for convective exchange 


ft^ 

27-36 

ARE (10) 

Area for radiative exchange 


2 

ft 

37-77 

C(4l) 

Weight. specific heat 


Btu/°F 

78 

CLO 

Clothing effective thickness/con- 
ductivity 

- 


79 

DTIME 

Integration Step 

.00083 

Hour 
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THERMOREGUIATORY - COMMON LOCATIONS (Cont'd) 


Location 

Variable 

Name 

Description 

Coiistant or 
Initial Value 

Units 

80-89 

EMAX(IO) 

Maximum evaporative loss 


Btu/hr 

90 

PRINT 

Print Step 

0 . 

Hr 

91 

PRNOW 

Print Step counter 

0 . 

Hr 

92 

QJVAP 

Evaporative heat loss 

0 . 

Btu/hr 

93 

QLCG 

Heat loss to LCG (Not used) 

0 . 

Btu/hr 

94-103 

QRAI)( 10 ) 

Radiative heat loss 

0 . 

Btu/hr 

104-108 

QRSENl- 

QRSEN 6 

Sensible heat loss from 
lungs 

0 . 

Btu/hr 

109-118 

QSEN(lO) 

Skin sensible heat loss 

0 . 

Btu/hr 

119 

QSHIV 

Heat production-shivering 

0 . 

Btu/hr 

120 

QSTOR 

Heat stored 

0 . 

Btu 

121 

RM 

Metabolic rate 

360. 

Btu/hr 

122 

SETT' 

Run time 


hr 

123 

SQUG 

Sum. of losses from clothing 


Btu/hr 

124 

STORAT' 

Rate of heat storage 

0 . 

Btu/hr 

125-167 

T( 43 ) 

Temperature of body compart- 
ments 


°F 

168 

TIME 

Time 


Hr 

169-209 

tset( 4 i) 

Point temperatures 



210-219 

TUG (10) 

Temp, clothing surface 


°F 

221 

V 

Useful work performed 


Btu/hr 

222 

VPDEW 

Vapor press'ure @ cabin temp. 


Psia 

223 

WORK 

Heat produced by work 


Btu/hr 
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INDEX OF VAEIABLES AND INITIAL VALUES 

FOR 

RESPIRATORY MODEL 
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ird Wo. 

Symbol 
(;Col. ' 26-37) 

Normal Initial Value 
(Col. 6-20) 

Description 

1 

FA(C02) 

.0527 

Alveolar gas fractions (dry) , 

2 

FA(02) 

.1514 

volumetric fraction of gas. 

3 

FA(F2) 

.7959 

dimens ionaless 

k 

CB(C02) 

.6397 

Concentration of gas in 

5 

CB(02) 

.0011 

brain. 

6 

CB(K2) 

.0097 

liters (STPD)/liter brain. 

% 

8 

9 ■ 

CT(C02) 

.6132 

Concentration of gas in 
tissue compartment. 
Liters (STBD) /liter 
tissue 

10 

Q 

6.0000 

Cardiac output blood flow, 
■„:.ilters/min. 

11 

03 

.7370 

Cerebral blood flow, liters/ 
min. 

12 

PCSF(G02) 

47.8529 

Partial pressure of gas in 

13 

PCSF(02) 

36.0047 

cerebrospinal fluid com- 

l4 

PCSF(W2) 

567.4731 

partment, mmHg. 

15 

TMAX 

30.0000 

Length of computer run, 
min. 

16 

CENT SEWS FT 

0.0000 

Central Sensitivity Parti- 
tion. Weighting of the 


H+ concentration in CSF 
with that of venous hlood 
in the brain. With 
C(l6)=0, zero weight is 
given to venous blood at 
level of the brain and a 
wei^t of one is given to 
H+ concentration in CSF. 
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Card No. 

Symbol 

Normal Initial Value 

Description 

17 

18 
19 

HB 

El 

E 2 

.2000 

.1000 

.1000 

Blood oxygen capacity, liters 
(STPD) /liter blood 
Time constants for cardiac output 
response (El) and cerebral blood 
flow response (E 2 ) for changes 
in blood chemical composition. 

20 

21 

CNT SENS COF 
CETD BDY SCF 

' 1.1380 

Controller sensitivity weight - 
lings, i.e.. 




Vj = l* 138 C^gy^jj+^+ i,i5J+o 








where 

= Blood transport delay from 




ao 

lung to carotid body. 




V defined in C( 37 ), and 
I 




teem = fimction of 

22 

£3 

KL 

KB 

3.0000 

1.0000 

Volumes of lung (alveoli), brain, 
and tissue compartments, liters. 

2 k 

25 

26 

EE 

MRB (C 02 ) 
MRB ( 02 ) 

39.0000 

.0500 

.0500 

Metabolic rates by brain, . 
liters (STPD)/min. 

27 

28 
29 

D (C 02 ) 
D ( 02 ) 
D (N 2 ) 

81.9900 

4.3610 

2.5240 

Diffusion coefficient for gas • 
across "blood-brain", liters (lO)" 
( STPD ) /min per mmHg. 

30 

B 

760.0000 

Barometric pressure, mmHg. 

31 

32 

33 

FI (C 02 ) 
FI ( 02 ) 
FI (N 2 ) 

.1000 

.1100 

.7900 

Volumetric fraction of gas (dry' 
inspired) , dimensionless 

3 ^ 

KCSF 

.1000 

Volume of -cerebrospinal fluid, 
liters 

35 

T 

.0000 

Initial time. 

36 

■ H 

.0078125 

/ 

Size of computer time step, min. 



Card No. Symbol 


Normal Initial Value 


Description 


37 VI(N) 


87.5500 Constant that is involved in the 

controller equation (SeeC( 2 l)). 
Determines the normal level of 
Alveolar ventilation so that 
P^(C02)^^ ^0.0 at rest, breathing 

air at sea level. When the con- 
troller sensitivity weightings 
are changed VI (N-) should be 
altered accordingly. 


38 

VI (ss) 

5.3900 

39 

PRINT AL TIM 

0.50000 


40 ■ 

UNKNOWN . 

0.0000 

4i 

BHGO3 Blood 

.5470 

42 

HHC03 Brain 

.5850 

43 

BHC03 Tissue 

.5850 

44 

BHCO3 CSF 

.5850 

45 

RMT(C02) 

.1820 

46 

EMT(02) 

.2150 

47 

DJI 

.0000 

48 

DJ2 

.0000 


49th Card: 

1-6 F6.2 W0BK2 

7-9 

10-15 f 6.2 DURAT* 


Value used for normal resting 
alveolar ventilation. This 
is not used in the program if 
VI (N) is known. 

Output printed in these time 
increments. However, there is 
an over-riding statement that 
permits no increments greater 

than 0.5 min. 

Importance related to C (39) 5 
but doesn't seem to be of any 
real . significance . 

Standard bicarbonate content, 
liters CO2 (STPD) /liter X, 

37°C where 


X = Blood, brain, tissue, CSF. 

Metabolic rates by tissue, 
liters ( STPD ) /min. 

Used in performing De Jours 
experiment (Not utilized in 
present runs). Brief description 
of Dejours work relating 0^ and 
CO threshold effects is gxven in 
Grodins* paper. 


(work load) 

Blank 

(run time for work load) 


*if DURAT is less than TMAX (card 15) another work load card is read 
when print time exceeds DUEAT. 



APPENDIX E 


EXAMPLE SIMULATION 
ON 

WHOLE-BODY ALGORITHM 



•i'XQT 


^3 


UHGLE-BOBY IRL6DPITHM 061975 RT 030S42 

REFER TD SE-R6S USER GUIDE TIR 741-MED-5009 

♦♦♦ LONG TERM EXPERIMENT S-IMULRTIDN ♦♦♦ 


l.Jh^^T OUTPUT FILE (R4.J Y»N... 

•r^ 

397DRTfi RECORDS INPUT. 

ir^PUT ND.fiND NRME FDR EXPERIMENT CI4' 15R4:' . . . 

BED REST 

OUTPUT WRNTED OR SRME»i-TOP c'6R4> . . . 

,-VE PEF BFN BFM HP . 

iriPUT URNTED CHGED. <R4 >£Xj FI 0. 4> DDNE= NO MORE LHbEi.. . . 

iVNB VRLUE... 

•• DOr^E 

TIME STEP >’.H4» 1XjF6. 0jF6. U> 

UN IT PRINT TIME « UN I T =DRYS » HOUR » M I NS > SEC S j S TEP> . . . 

.5 DfiYS 1.1. 

e::ec prrrm. tR4.j ^.mdre»run^ . . . 

■■ Ruri 

INPUT l.IF I..IRNT TD CALL SHORT TERM MODEL-' 

■ 1 . 

0 BED REST 

Dft'i' HR MN SE VB RBF _ BFN 

0 Cl 0 0 5.0624 1.1386 d.9334 

1 022 5.0620 1.1881 £.9366 


BFM 
1 . 1 786 
:. 1769 


MK 
72.36 
72 . 85 


♦♦♦ SHORT TERM EXPERIMENT SIMULATION ♦♦♦ 


ENTER EXPERIMENT CODE: LBNP=1.» TILT=2. j 

RESPTRRT0RY=5. 


'"'the stored PROTOCOL IS: 


TILT ANGLE 
tDEGJ* 

0 . 

70. 0 


DURATION 

<Miru 

1 . 

2 . 0 


RECOVERY 

fMIN> 

2 . 0 


TERG=3. j 


THERMAL=4. » 


DO YOU WISH TD CHANGE PROTOCOL? <Y-'NJ 

THE PRINT INTERVAL IS CURRENTLY .SOMITES 
IF YOU WISH TD CHANGE* ENTER NEW. INTERVAL* 


OTHERWISE RETURN 


DO YOU WISH TD CHANbE INITIAL DATA? 

TO CHAriGE INPUT ENTER MODEL NO. <CVS=1 * THERM-2 »RESP= 3 > * INDEX *&VALUE 
'.II* IX* 14* FI 2. 5> 

>1 1 101 . 

DO YOU WISH TD MODIFY THE OUTPUT LIST? C.'/N> 

ENTER LINE HD. » POSITION* INDEX* 8^NAME> CR WHEN COMPLETE 
ai» IX* II* IX* 14* IX* A6> 


w ro 




cv; 

THERM 

PESP 

LI HE 

1 

2 

5 

poiiTiari 

2-9 

1-9 

1-9 

iriBE;; 

1-600 

1-223 

1-1270 




' 1 S 575 TILT 



PD -I'DIJ i.HiH 

TO CREATE RH 

□UTPUT 


•M 


kk 


C flpn I □ VFli C ULftP MOBEL . . 


-lECC 

HR 

CD 

3V V02D0T 

IWIT 

5*?'? 

561 

565 

562 57 0 

567 


♦♦♦♦♦ 

♦♦♦♦♦ 

♦♦♦♦♦ ♦♦♦♦♦ 

♦ ♦♦♦♦ 


THERMDPEGULRTORY MDBEL 


r ■ 1 ■ 

TiBF 

C'EVRP 

I.IDPT ZTDRRT 

QZTDR 

125 

0 

92 

225 • 124 

120 


♦♦♦♦♦ 

♦♦♦♦♦ . 

♦♦♦♦♦ ♦♦♦♦♦ 

♦♦♦♦♦ 


PEIPIRRTDRY MODEL 


VI 

VE 

PR □£ PR C02 CR H+ i 

CZ'F H+ 

1265 

1264 

1200 

1206 1256 

1053 

♦♦♦♦♦ 

♦ ♦♦♦♦ 

♦♦♦♦♦ 



. 5 0 0 

6 3. 301 

6 . 923 

.109 .512 

1 29 . 294 

98 . 589 

3.534 

48. 393 

52 . 033 -98 . 358 

9.234 

5.715 

5-644 

1 06 . 237 

37.985 43.784 

37. 642 

1 . 0 00 

63 . 25 0 

6.930 

.110 .309 

128. 328 

98 . 589 

3.533 

51.143 

92- 599 -6 1 . 863 

9 . 267 

5 . 7 03 

5.641 

105. Ill 

37.930 43.790 

37 . 630 

1 . 500 

75. 061 

6 . 395 

. 035 .371 

127.920 

98. 589 

8 . 587 

55.999 

128.985 -29.139 

9 . 455 

5.420 

5.352 

105. 054 

57.812 43.799 

37.371 

2.00 0 

74 . 943 

6. 454 

. 086 . 369 

128. 6-Zi3 

93.584 

8.549 

53. 840 

126.965 —30.944 

9.339 

5.782 

5.635 

101.620 

38.136 45.310 

57 . 67 4 

2.500 

74.945 

6.447 

. 036 . 370 

128. 48 0 

98 . 577 

8.501 

53.879 

127.468 -30.494 

1 0. 225 

5 . 798 

5.655 

99.236 

38.062 43.321 

37. 678 

3- 000 

74.949 

6.443 

. 086* . 370 

123.459 

98.571 

8.459 

53.945 

128.304 -29.751 

10.614 

5.808 

5. 662 

98. 163 

38.044 45.853 

37 . 675 

3.500 

62 . 333 

7 . 046 

.113 . 5 0 r 

129.779 

98 . 569- 

8 . 439 

49.293 

66.775 -85.335 

10.740 

6. 080 

5.918 

96.547 

38.139 45.844 

37.899 

4. 000 

62. 355 

7.109 

.113 .516 

131.136 

98 . 572 

8.457 

50-240 

81.084 -72.260 

1 0.725 

5.700 

5.616 

100.522 

37.966 43.357 

37-556 

4.500 

62.573 

7. 070 

.113 .312 

150.492 

98.575 

8. 478 

49.795 

74.957 -77.335 

10.703 

5-768 

5 . 682 

102. 195 

37 .912 43 . 867 

57.605 

5. 000 

62 . 698 

7. 091 

.113 .512 

1 5 0 . 836 

98.577 

3.498 

49. 852 

75.370 -77.011 

1 0 . 68'2 

5.746 

5-664 

103. 024 

37.381 43.876 

37 . 578 


DIRS 

568 

o:hiv 

119 

♦♦♦♦♦ 

TVNT 

0 

♦♦♦♦♦ 

66 • 77'9 
.000 
7 . S33 

66. 350 
.000 
7.££7 

74.957 
. 000 
6.91 1 

74.998 
. 000 
7. £60 

74.947 
. 000 
7. £81 

74.9£6 
. 000 
7. £90 

65.774 
. 000 
■ 7.579 

66.931 
. 000 
7. £08 

66.317 
. 000 
7.882 

66. 491 
. 000 
7.260 


TILT 

575 

Ti.41> 

165- 

♦♦♦♦♦ 

flVOEB 

0 

♦♦♦♦♦ 

. 000 

98.360 
45. 157 

. 000 

98. 360 
46 . £37 

70. 000 

98.361 
57.219 

70. 000 
98.338 
56.570 

70. 000 
98.335 
56.756 

56. 000 
98.334 
56. 887 

. 000 
98.356 
44. 443 

. 000 

98. 363 

45 . 363 

. 000 

98. 363 
45. 107 

- 000 
98. 563 
44.966 


LEGV 

600 

♦♦♦♦♦- 

I iI'IJG 
1£3 

♦♦♦♦♦ 

FREi? 

0 

♦♦♦♦♦ 

563 . 49£ 
385.547 
1 1 . 345 

562.961 
386 . 384 
11.841 

916.461 
387. 125 
11.502 

917. 767 
387 . 069 
1 1 . 834 

917.617 
387. 083 
1 1 . 857 

917. 559 
387. 110 
11.865 

557.202 
385.817 
12. 156 

558. 061 
386.104 
11.812 

557.443 
385.996 
11. 888 

557 . 639 
586. 0-30 
11. 867 
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OUTPUT MfirtTED OR SfiMEySTOP . . . 

INPUT UfiMTEB CHGED. ^fi4> EXj FI 0. 4J DONE= MO MOPE L'HbES... 
:VMB VfiLUE... 

■ fiUV . 3 
hUV .3000 

TVMB VALUE... 
y-HLIL 1. 
fllJL 1.0000 

:VNB VALUE... 

> 0Dr^E 

TIME .ITEP kA4» IXj F b. 0>FG. 0^ . . . 

UNIT PRINT TIME <UMIT=riRVSj HOUR? MINS j iEC3 » S-TEP > 

••liA'i’S 1. £S. 

EXEC PARRM. '-A4> ('MORE? RUN> . . 

- pur^ 

INPUT l.IF I.JANT TO CALL SHORT TERM MDDELi 

• 1 . 

0 BED . REST 


DAY 

HR 

MN SE 

VE 

RBF - 

AT 

1 

DAT'? 0 

HR) £ MIN) 

£ SEC . . 

AT 

1 

DAY? 0 

HR) £ MIN) 

£ SEC .. 

c. 

0 

0 4£ 

4. 7£5£ 

1 . 1£33 


0 

1 lb 

4.73£9 

1. 1£17 

4 

0 

O' lb 

4.7330 

1. 1£4£ 

5 

0 

£ £5 

4.7£79 

1. 1£09 


0 

1 15 

4. 7£6b 

1. 1££1 

■y 

0 

0 44 

4.7£33 

1. 1£05 

g 

0 

0 3£ 

4.7174 

1.1159 


0 

3 38 

4.7174 

1. 1186 

10 

0 

1 45 

4.7158 

1. 1190 

11 

0 

0 ££ 

4.71£1 

1.1173 

1£ 

0 

1 36 

4.7039 

1. 1158 

13 

0 

0 40 

4.7073 

1.1162 

14 

0 

0 9 

4 . 7 036 

1. il45 

15 

0 

£ 1£ 

4.7005 

1.1131 

lb 

0 

0 1 

4 . 6963 

1.1105 

17 

0 

£ 18 

4. 6953 

1.1119 

18 

0 

0 45 

4.6911 

1 . 1 093 

19 

0 

0 9 

4.6895 

1 . 1 097 

£0 

0 

0 43 

4 . 688 0 

1.1102 

£1 

0 

1 31 

4 . 6844 

1 . 1 086 

0 

BED 

REST 


DAY 

HR 

MN SE 

VB 

RBF 

dd. 

0 

0 38 

4.6803 

1.1060 

•£3 

0 

0 3£ 

4.6787 

1 . 1 065 

d4 

0 

1 £5 

4.6773 

1.1070 

•£5 

0 

£ 33 

4. 6737 

1 . 1 055 

£b 

0 

1 54 

4.6696 

1 . 1 0£9 

£7 

0 

£ 1 

4. 6681 

1 . 1 033 

£8 

0 

1 10 

4. 6640 

1. 1009 

£9 

0 

1 35 

4.6599 

1 . 0983 


EFN 

EFM 

HR 

AUV FROM 

. 0000 

TO 

AIJL FROM 

. 0000 

TO 1. 

£.808£ 

£. 0516 

73.3171 

£.3£59 

2. 0575 

73 . 5882 

£.8295 

£ . 0593 

74. 0819 

£.8257 

2. 0563 

74.4550 

£.8263 

£. 0575 

74.9098 

£. 8260 

£. 0566 

75.30£1 

£.8166 

£. 0501 

75. 6238 

£ • 8££7 

£. 0543 

76. 103£ 

£ . 8243 

£. 0557 

76, 5304 

£.8181 

£. 0513 

76.9103 

£ . 8178 

£. 0509 

77.2974 

£.81 95 

£. 05£3 

77.7241 

£.8133 

£. 0434 

78.1038 

£.8130 

£. 0476 

78.4910 

2.8079 

£ . 0439 

78.8531 

£.3085 

£. 0451 

79.2977 

£ . 3 065 

£. IJ483 

79.6580 

£.8066 

£. 0431 

80. 0815 

£ . 3 083 

£.0444 

80.5087 

£.8021 

£ . 04 06 

80.8387 


EFN 

BFM 

HR 

£.80 0£ 

2. 0389 

81.2492 

£.8004 

2. 0387 

81. 673 0 

2.3021 

£. 0400 

82.1003 

£.7959 

£. 0362 

82.4804 

£.7941 

£ . 0345 

8£.8411 

£.7942 

2. 0343 

33.2649 

£.7893 

2. 0307 

'83. 6276 

2. 7837 

2. 0270 

83.9869 


3000 

0000 
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EraER EXPERIMEHT CDDEs LEHP=1'. • TILT=£.j TER6=5- » THERMHL=4. » 

REiPIRflTDRV=5. 

"the i toped protocol is: 
e:;eri:ise dupatioh 

•;i..tflTT-S> 

.0 E . 000 

100.0 5. 000 

.0 5. 000 

Erm TIME= lE.O 

DO YOU TO CHRHGE PROTOCOL? CiY H • 

V 

EHTER HEM PROTOCOL 2F1E.6 OIR WHEN CDt-1PLETE> 

e:-;epcise burption 

• l.IRTTS;' ■■HIH"' 

• 0 . E . 

-'EOO. 5. 

THE PRINT IHTERVRL IS CURRENTLY . SONINS 

IF YOU I.IISH TO CHfiMi5E» ENTER NEW INTEPVRL; OTHERWISE RETURN 

DO YOU WISH TO CHRNGE IMITIRL DRTRT 
.:-N 

DO YOU WISH TO NODIFY THE OUTPUT LIST'? Ci- rL> 

W 

DO YOU WISH TO CRERTE RN OUTPUT FILET 
N 


CRPDIOVRSCULRR MODEL 


•ZEc; 

HP 

CD 


VOEDOT 

s'v: T 

D IRS- 

TILT 

LEGV 

599 

581 

583 

58E 

570 

587 

568 

575 

8 0 0 

♦♦♦♦♦ 

♦♦♦♦♦ 



♦♦♦♦♦ 


♦♦♦♦♦ 

♦♦♦♦♦ 



THEPMOREGULRTDPY MODEL 





-CQUG 

T a.- 

TSBF 

OEVRP 

WORK 

STORRT 

05 TOR 

QSHIV 

T<‘41> 

1E5 

0 

9E- 

223 

1E4 

lEO 

119 

185 

1E5 

♦ ♦♦♦♦ 

♦♦♦♦♦ 

♦♦♦♦♦ 

♦♦♦♦♦ 

♦♦♦♦♦. 

♦♦♦♦♦ 

♦♦♦♦♦ 

♦♦♦♦♦ 



RESPIRRTORY MODEL 






VI 

VE 

PR OS 

PR COE 

CR H+ 

CSF H+ 

TVNT 

RVD2D 

FREQ 

IEG5 

1E84 

lEOO 

1E06 

1E58 

1 033 

0 

0 

0 


♦♦♦♦♦ 


-♦•♦♦♦♦ 

♦♦♦♦♦ 

♦♦♦♦♦ 

•*•■*♦♦♦ 



. 500 

74.815 

8 . 383 

. 038 

.513 

1E1.303 

89. 387 

. 000 

124.741 

93.591 

8.593 

48.598 

55.441 

-95.759 

9. £89 

. 000 

98. 358 

385.602 

5.t.98 

5.594 

1 04. 448 

38. EES 

43.781 

37. 830 

. 7.194 

44.533 

11. 786 

1 . 000 

?£. 403 

6.540 

. 090 

.535 

1E3 . 898 

68.545 

. 000 

14. 880 

93 . 533 

8. '576 

58. 0E7 

154. 83E 

-5.SSE 

9. 517 

.000 

98.358 

387. 887 

'6. 0E5 

5.965 

104.48 0 

37.844 

43.781 

37.914 

7.580 

45.321 

12.209 

1.50 0 

1 0 0.776 

8.110 

. 081 

. 37E 

lEO. 044 

81.343 

90. 000 

583. 461 

98.590 

3.587 

53 . 733 

128. E4E 

-31.587 

9.512 

. 000 

98. 416 

387. 047 

5.535 

5. 488 

1 05.763 

37.854 

• 43.784 

37 . 486 

7. 049 

58. 157 

11. 883 

E. 00 0 

101. 353 

8. 0E3 

. 059 

. 377 

119.917 

32. 07E 

90. 000 

540.889 

98.589 

8.585 

54.454 

134.814 

— E3 . 833 

9.879 

. 0 0 0 

98.348 

337. 193 

5 . 678 

5.54E 

103.543 

33. 0E5 

4o . 783 

37.809 

7. 152 

53.637 

11.7 Eb 



LHRriGE iri METflEOLIC RfiTES 


riPcoa= 


MRD£= 


. 3£U0 


l:HRr^6E IH METRBDLIC PRTES 


MPC-D£= 


1 . 1£90 


MRD£= 


1.2S30 


£.500 17'3.48£ 11.319 .065 1.31£ 107.670 67.937 90. OOU 447. y41 
98.500 8.050 115.870 917.109 679.576 14.089 .000 97.966 404.668 
83.105 83.098 119.011 38.537 43.768 54.475 86. 179 118.764 83.461 
CHRMbE IN METREDLIC RRTES MRCD8= 1.6389 MPD8= 1.8555 


1.8555 


3 . 0 0 0 800 . 000 1 8 . 9 3 1 


CHRNI5E IN METREDLIC PRTES 


MPC08= 


5.50 0 8 00. 000 13.884 .069 8.8 59 

98.278 6.394 184.5041791.0181464.881 


CHRNSE IN METREDLIC PRTE.; 


4 . 00 0 800.000 14. 939 

98.149 6.570 199.355197': 

47.884 46.395 106.806 3£ 

CHRNGE IN METREDLIC RRTES 


MPCD8= 


NPCD8= 


4.500 800.000 15.187 

:*8 . 087 5.930 804.1 638 04 1 

54.659 54.048 110.786 3c 

CHRNGE IN METREDLIC RRTES 


38-353 


MRCD8= 


5 . 0 0 0 8 00. 0 0 0 1 5 . 393 

■57.919 5 . 6 08 807. 58 1 £ 08: 

6 0 . 1 99 59 . 857 114.887 3. 

CHRNGE iri METREDLIC PRTE3 


;00. 000 15.675 


CHRNGE IN METREDLIC RRTES 


MRCD8= 


. 078 


MRCD8= 


6.000 800. 000 16. 059 .080 8.684 
•97.758 5.168 818. 6098146.9081781 . 838 
67.513 67.457 116.188 33.089 48.811 
CHRNGE IN METREDLIC RRTES MPCD8= 


6 . 5 0 0 £ 0 0 - 0 0 0 16. £93 

97.703 5.040 £ 1 4 . 3948 1 6': 

67.C-87 67.633 115.898 3' 

CHRNGE IN METREDLIC RRTES 


109. 048 

67 . 878 

90.0 00 4’99.-331 

88.617 

.000 

98.007 417.341 

54.588 

36.-071 

147.607 £6 . 648 

8. 0931 

MPD 

8= 8.1959 

115. 387 

69.947 

90.000 518.884 

33. 670 

. 000 

97 . '95 3 484 . 6-33 

34.578 

43. 613 

159.749 £8.618 

8.5161 

MRD 

8= £.3'933 

183. 774 

78-101 

90.000 518.359 

45.608 

. 000 

■97.885 489. 184 

34 . 543 

58.805 

158.431 30.467 

8.8114 

MPO 

i£= £.4580 

188.675 

75.317 

90.000 584,776 

58. 368 

. 000 

97.918 4-31.158 

34. 055 

60.538 

153.940 31-981 

5. 0439 

MPD8= 8.5058 

138.541 

76. 61 '9 

90.000 534.7 09 

70.433 

. 000 

97.388 438.81-3 

33 . 846 

66.310 

157.880 -38.974 

3 . £859 

MRD£= 8.5439 

134.584 

77. -330 

90. 000 530. 46 3 

83 . '984 

. 000 

97.968 434.499 

33.977 

71.501 

158.866 33.640 

3.3681 

MRD2= £.5743 

137. 846 

77 . 953 

90.000 539.748 

96. 615 

. 00 0 

98. 034 456. 061 

54.343 

75. 075 

154.816 34.114 

3. 4076 

MPD£= £.5986 

139. 487 

78.593 

90.000 534.789 

110. 034 

, 000 

98.036 437.566 

34 . 896 

75.261 

149.961 54.148 


MPCD8= 


3,4386 


MPD£= 


£.617 


7.000800.000 16.737 .034 £.668 148.41b 73,566 90.000543.990 

97.655 4.938 £15.8372186.7851814.793 181.173 .000 98.141 4^9.155 

1,991 1.285 108.570' 41.833 42.581 35.660 8.763 148.838 4.810 

OUTPUT WRNTED DP SRMEjSTOP c,6R4;» 

.ITDP 
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S£G MAIN 
In GUYTON 
IN PPPPPP 
IN TTYIOB 
In SEGlt 
IN TOSHOR 
SEG GWORK* • (HaINI 
IN GUYYY 

SEG NEW102*»IGW0RK> 

IN TTYOUT 

SEG NEAIO*tGWORK 

IN TTYlN 

Seg oldio*»gwork 

IN PUTIN 
IN PUTOUT 

seg stm*»<mAin) 

In terg 

In exec 

In CVS 

In algo 

IN BLKOAT 

In trdat 

IN NDAT 

IN state 

IN OELAYC 

IN XIOD 

IN Z 

In r 

IN RINTR 

IN TRINT 

Seg XERC*t<STM) 

IN CONTRL 

In xio 

Seg GROD*.iSTM) 

IN gROOIN 

SEG THERR»»ISTM) 

IN THERM 

, libraries 

lib LeC^^R* 

Lib msc*localib* 

end 

31c program GUYTON 

c CIRCULATORY DYNAMICS • ClRCE 

C CIRCEl 

REAL NAE»NEO»NIOiNOD,l I ,LPK *K 1 0 »M02 »NOZ »Kc2 »HPL ,HPR » 1 2 , 1 3 »MMO 

Real lvm, i ,ifPiKe»kod,kir,ki .lpdiKei 

REAL KCD*KE0»KN1 »KN3*NA0fKlEiK0 
COMMON/TOSHOR/TTSHORI20) »FfSH0RI20l 
data FFSH0Rt3)/*l99O8/ 

DATA FFSH0RI2)/22«83/ 

COMMON/ARRAY/TtI iVBD.VVS|VPAtVAS»VLA»VRAiVAEfPAtPAMiLVH, 

♦ VRE»PRAiQRNtVPE*PPAfP.Pl tCPA*RPA»RVM»VLE*PLAtQLN»PLl » 

* AlBiRPVf RPTiPGLiQPOiQS , VVEt VV8iPVS»PGViRVG|QV0» AVE 

COMMON/ARRAY/CN2»CN3.RVS*PGS»RTPiQAO»QRO»QLo»DVS»DPA»OAStDLA»DRA* 

• PAl ,AUc.AU8iAUNtAU6.AU2,AU8»DAUiAUj,AU , AUOt AU h» WH » 



u u 
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listing of whole body algorithm 


AU9.AUM 

lAUR 

>VIF 

.POl 

.ptt 

,PTS,PIF»CPI 

.PTC.CPP 

PPC.PVG 

common/aRRay/Pc »pcd 

.VTc 

.PLo 

.VTL 

.VTd 

.vpd.dPl.cpi 

.OPC.DPI 

lpo.dlp. 

opp.chy 

,PRM 

.PGR 

.CPG 

»P6P 

.GFl.PGX.PGC 

.P6H.P62 

VGD.VG . 

EPHiGSO 

»GP2 

»6PD 

.AAR 

.RR 

,RFN, aPO.GLP 

.PFL.GFR 

TRR.VUO 

COMMON/ ARR A Y/REK.NOd 

.NED 

.nae 

.VEC 

.CKE 

iKOD.KE) .KIR 

.KiE.KCO 

ked.cki , 

CNAtCCD 

iVID 

.kl 

.KI 

.VIC 

,11 .vty.z 

.VTZ.VUZ 

TVZ.PPZ. 

DFZ»X 

>12 

.pRi 

.VTS 

.VP 

,PRP. IFp.GPR 

.KN3.KN1 

AMR, AMP 

common/array/ami »amc 

>gsi 

.AM3 

.AMS 

.AM 

,cne. agk.anp 

.ANl »ANC 

GS2 .GS3. 

ANb* ANM 

>VB 

.HMl 

>HM 

.Bl 

.VlE.VlB.VlM 

.RC2.P02 

RKC.RCl . 

RCDiVRC 

>RSN 

.OVa 

.BFN 

.DOB 

.AOM.PlO.OSV 

.POT, POD 

POB.ARl 

common/array/ aR2 »P0C 

»AR3 

.aRm 

tCNB 

. gfn 

. AH7.AH8.AH 

.ahc.ahi 

AH2.AHR. 

AHMiCNY 

>CNX 

.W1 

tVV2 

.VV5 

,VV6.VV7.TVD 

.VTtt.HSR 

hsl.nid. 

SR tVVR 

iRAR 

.cv 

.CN7 

»aux 

.auk.auz.y 

.CFC.CPK 

PCE.CPR 

COMMON/ ARR A Y/lPK iDPO 

>HTL 

tKlD 

.amt 

.ANT 

.POK.POn.AIK 

. A2K.A3K 

CNR.CNZ. 

ahk»srk 

tV9 

t V2D 

.ZI 

*Z2 

*Z3 .ZR .Z5 

.Z6 .Z7 

ZB .HMK* 

HKMiPOV 

iPOZ 

»RDO 

.QQ2 

>RBF 

,M02.POa.POY 

. anu.por 

GF2.HM0 

common/array/dhm*poq 

* l3 

.U 

.VPl 

.Ti 

. GF3 .qFH . AU p 

.AUV.RVl 

AUY.OUT. 

DSP,AHZ 

>AHY 

.osa 

.PPI 

.CPN 

.P0S.PLF.PP0 

,PPN,PP0 

PFI ,DFP, 

VPF.PPR 

.PMC 

»PMS 

.PMP 

.HR 

.cpf.pcp.dai 

.DLZ.DPY 

DPZ.GPZ 

COMMON/ ARR A Y/NOZ.kCZ 

>VlZ 

»hPR 

.hpl 

»STh 

> ALO . eXc . 02m 

,PA2,PP2 

svo.aul# 

VV9»02A 

>Q1 

iEA£ 

,ARF 

»QRF 

.rsm.bFm.RAm 

.OVS.PVO 

RHO.QOM, 

PM0.P20 

.MHO 

»PD0 

>POE 

»AMM 

,ARK .POm.OMM 

.PHI .PM3 

PMN.EXl 

C0MM0N/ARRAY/Q2 .03 

*PMS 

.PKi 

.Z9 

.ZIO 

• Zn.Zl2.ZI3 

.ZIH.ZIS 

216. Pk2* 

PK3,FIS 

,STA 

.PAR 

*GBL 

.ANY 

.ANZ.ANX.ANV 

.anw.anr 

AUQ.AUR, 

AUS,A378,HI 

.A2 

. A3 

.aucb.auab.Ccb, 

CAS. 



UUHl iAUH2»AUH3tV0Tl . V0T2 i V QT3 , VoT i RTR » V I L . V ASO » VR AO i 
2 VLAq»VVSoi VPAqiRNSiRSR* AN<iS,BfRT»CRA»RNK»RC,CAlVf CAS»AN2» 

3 AKA ,ANCN,ANMM,AN3,ANTC»ANGSS.ANGT,A,ANAR »ANER»ANK.0£SC,VU6F, 
HOOctfiPl tV0BiRNAfV6l ,SR1 »V7l » SRL t V&2 , SR2 , V72 , X 6 » X 7 tX 8 , 
5ATH»AMS.POF»POU,AM2»ASK,NAO,KO»CAAtSRMiVlNT ,VUS, 

60UMMY(51 ) iTITLEISOQ) iOUMNYIRO) 

COMMON/ MuMERO/K» NO ( 20) , Nj I MEC * uN I jS • NZ » N t I MeP » NN i MAXNO » NT I ME 
COMMON/ STORE/NGJ »N62 »NG3 »NGR »N65 iNG4tNG7 »NSB»NG9 »0T #TLP»TNP »ND i 

• TM|TMM,NfIRST»ZZU5) ,OlY (9) ,0BY(9) ,YMINU0) ,YMAXnO) » 

* N»PT( 18) I beta ( | 0) tN6RApH( )0 ) » GRAPH ( iq) »HEAD( |9) iNOEXP 

« ,dtmax 

COHMON/TaPe/TOTaLiIbgUY 

COMMON/OEMAND/lTAPEO.lTME.lEXECNt ICONVI »T nOUTiXX 1 
data IN000/»N »/.IYOOO/*Y */tlSPOL/*RUN »/. 

WR1TE( A.72^1 

72R FORMAT (* IGUYTON MODEL FROM WHITE*/ 

C I ♦ REFER TO gE"ASg USER qUiDE •» 

C 2 *TIR 7‘a-HED-HQ04» ) 

CC SEE IF CONVERSATIONAL INPUTt 
C 19 WRITE(A»20) 

C 20 FORMAT! ‘OCONVERSATioNAL INPUT (AN) Y»N***’) 

C READ{5»21 ,ERR»19) ICONVJ 

2) FORMAT(AH) 

IBgUY«|3 

C IFdCONVI *£Q* INOOO) GO TO 2B 

C IFtiCONVI *NE* lYOOO .AND* ICONVI .NE* ISPOD GO TO 19 

CC SEE IF TO OUTPUT TApE. 

CC 

C 30 IFUCONVI .EQt lYOQO .OR. ICONVI *EQ. ISPOL* GO TO RO 
CC here if NOT CONVERSATIONAL HOoE. 

C WRlTE(&t32) 
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LISTING OF whole BODY ALGORITHM 

C 32 fORMATI’OADD DATA FILE***’) 

C call PUTIN 

C 60 TO 38 

cc here if in conversational mode* 

C ‘10 WRlT£l6i72I> 

C 721 format!* ado DATA FIlEOAOD TTYDAT).*<*> 

ICONVI-I YOOO 
ITAPEO*INOOO 
call ERTRAN(9,MDiMT) 

WRITE I6*i0) MDjHT 

10 format t/* whole-body ALQ0RlTHM«tI0XiA6, • AT ».A6/ 
* » REFER To GE-AGS USER GUIDE TiR 7 ^ I -MED-5009 » // 

& LONG TERM EXPERIMENT SIMULATION •«♦»/> 

25 WRITE(6|26) 

26 format I *0WANT OUTPUT FIL6 IAH) Y»n»«**) 

READ! St2l »ERR*25» ITAPEO 

IFUTAPEO*NE*lYOOO.ANO#lTAPEO.NEtINOOO» GO TO 25 
CALL ERTRAN(6» »BADD #TTYOaT t «) 

CALL PUTIN 

• IFdTAPEO tEQ* INOOO) 60 TO 31 
REWIND 7 
TNOUT * 500* 

WRITE(7» TNOUT»T.fTtT 
XXI » T 
TNOUT ■ 0* 

31 CALL TTYIN 
ITME • i 
call TTYQUT 


38 IF(1 *GT« 0*5) I«0«5 

100 IFtiCONVI *EQ* lYoOO *0R* ICONVI cEQ* ISPoLI GO TO 50 
CALL PUTOUT 
GO TO 102 

C HERE IF CONVERSATIONAL MODE* 

50 IEXECN • 0 
ITME » 0 
CALL TTYOUT 

IFUEXECN »E(J. 0) GO TO 102 

c here When finished all Time steps input. 

TTSHORI n * VB 
TTSH0RI2) • V7I+V72 
TTShOR (3 >«RBF 
TTSHORI H)*BFN 
TTSH0RI5)«BFM 
TTSHOR <6 )*»HM 
TTSh 0R!7)»*0SA 
TTSH0Rl8)*T 

lFIAUL.LE«0.0)TTSHQR(8)aO. 

IFIdUhmYISO) .lT. 1.) GO TO 888 
CALL TERG 
888 CALL TTYIN 
I the ■ 2 
CALL TTYOUT 
102 CALL GUYYY 
GO TO 100 

^ end 

^ SUBROUTINE PUTIN 
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LISTING OF whole BODY ALGORITHM 


common/aRRay/a(&oo> »tiTle(5ooj » col 1 20) I alpha* 20) 

COHmON/NUMERO/K|NO( 20) iNTlMEC»UNlTS,NZiNTlMEP*NNfMAXNO«NTlH£ 
COMMON/STORE/NGl » NG2 » NG3 » NGH t NG5 » NG6 , N67 » n68 » N69 » DT »TLP»TNP • NO » 

• TM»TMMfNFlRST»ZZtlS) , Ot, Y < 9 ) , qBY * 9 ) , VMlN UO ) »YMAXU0)» 

• NiPT ( 18) »8ETA( lO) iNQRAPH* IQ) , GRAPH ( 10) »HEAD( 19) tNOEXP 

• ,DTMAX 

qOmmon/demand/itapeOiitme* Ie^ecn# icon VI »tnout#xxi 

DATA INOOO/»N V 

DATA ALL/tALL VtBLANK/* ♦ / iSAME/ * SAME f / 

00 1 J«ttSOO 

A{ J)«0, 

1 TITLE! J)-BLANK 
NZ*0 

NTImEP-I 
NN*l 
HAXNO-1 
MlXX ■ 1 

2 READiBtlOO) VALOE«NUMBRO*SVmBOL 

iOQ FORMAT ! E I 3 . 6 1 2X , 1 5 i 2X , AH ) 

ifimaxno.lt.numbro) haxno*numbro 

IF(NUHBROtEQ*0) GO TO 3 
A(NUMBRO)«iVALUE 

TITLEINUHBROJ .SYMBOL 
MlXX ■ HlXX ♦ I 
GO TO 2 

3 0SP»AI286) 

WRIT£(6,731) MlXX 

731 FORMAT! *0* » 16, 'data RECORDS INPUT,') 

579 WRITE(6»S80> 

580 FORMAT!' INPUT NO,aND NaHE FOR EXPERIMENT ! I *» » 1 5 AH ) • , • » ) 
f^EA0!S,I0I ,Err*S79) no^)*P* *H£ADlJ) »J*l ,15) 

lOi FORMAT! IH,15AH) 

C get out if CONVERSATIONAL MODE* 
lp!lCONVl *Ne, INOOO) GO TO 31 
IFIDSP) 37,38,37 

37 nFIR5T*D, 

CONTINUE 

C IFlNwlO) 201,38,201 

38 READ!5,200) ! ALPHA ! J ), J« 1 ,20 ) 

200 FORMAT !20AH) 

2Q1 IFlALPHA! l ),EQ.SAME) GO TO 32 
IFIAlPhA! 1 )«NEf ALL) GO TO H 
READ!b,300) NTIMEC, units 
WRITE! 6, 102) NOEXP , ! HEAD i J ) , U« 1 , 1 8 ) 
write !6,7 1 ) UNITS# ! TI TLE! J) »A!J) ,J*l .MAXNq) 

GO TO 31 
H DO 5 K«1,20 

IF!AlPHA!k)#EQ#BlANK> <»0 TO 6 

5 CONTINUE 
K«21 

6 K.K-1 

DO ID j»l,K 
L«l 

7 IFIALPHAU) ,£Q,TITLE!L) ) 60 TO y 
L«L<#1 

IF!L#LT#MAXN0*1 ) GO TO 7 



r> o ri o n nr> 


53 


LISTING OF whole BODY ALGORITHM 
WRITE(2,530» ALPHA(J) 

530 FORMAT!/* THE VARIABLE *»A*<.*IS NOT AVAILABlE To THE PRINTER.*/ 

• » choose another one to Take its place.*/ 

• ♦ ABC *) 

READ<2.S31) aLPHa(J) 

531 FORmATIAH) 

L*I 

60 TO 7 
9 COL(J)-AiL) 

N0(J»*L 
10 CONTINUE 
60 TO 

32 DO 33 JbI »K 
ALPHA! J)*BETA{J) 

NO! J)»N6RAPH! J» 

33 COL(J)«GRAPH( J) 

34 READ!5t300) NTIMECtUNiTS 
300 FORMAT! 16. AH) 

WRIT£!6.I02) NOEXP » ( HE AO ! J ) »J>I. 18) 

102 FORMAT! IHl ,2X,*EXP ».lH/* *,I8AH///> 

IFUTAPEO *EQ. INOOO) GO TO 13 
CALL NTRANI7. I tHOO.A.U) 

123H IF !j.lT.O) GO TO 123H 
13 IFIK.GT.IO) 60 TO 70 

WRlTE!6,2n UNITS, ! ALPHA ! U ). . K ) 

21 F0RmAT!*0 * ,AH.10!6X,AR»IX) ) 

WRITE!6.22) !C0L! J) ,J«I ,K) 

22 FORMAT!* * . 5X . » 0 * , 2X . F 1 0* H » 9 ! I X # F 1 0 . H ) ) 

60 TO 31 

70 WRiTE!6,7l) UN I TS . ! ALPH A ! U ) i COL! J ) * 1 *K ) 

71 format ! 60X»2H0 > AH //5 ! HX » AH , t . IFIO.H.HX)) 

31 return 

^ end 

^ SUBROUTINE PUTOUT 
C 

COMMON/ARRAY/A!sOO) ,T1TLE!500) »C0L!20) iALPHa! 20) 
COMMON/NUMERO/K»NO!20) t 

• NTIMECsUnITS,n2 »NT I MEP »NN » mAXNO » nT IME 
C0MM0N/ST0RE/N6I ,NG2,N63tNGH,NG5f NG6*NG7.NG8.NQ9|DT .TLP. TNP.ND. 

• TM.TMM.NFIRST »ZZ! 15) ,0lY! 9) .OBY ! 9 ) , YM I N i 10) .YMAXUO) t 

« N«PT! 18) ,BETa! 10) »NGRAPH< 10) .GRAPH! 10) * HEAD ! 1 9 ). NOEXP 

• .DTMAX 

common/tape/total 

COMMON/ demand/ I TaPeO i ITME. IeAECN. I con VI .TnOUT.XXI 
DATA INOOO/*N */ 

DATA SECS/ * SECS »/,TM1N/*M| NS* /.HOUR/ ‘HOUR*/. DAYS/ *DAYS*/ 

DATA ALL/»ALL '/.blank/* '/ 

C EQUIVALENCE! A! 1) »T) 

T»A! 1 ) 

I if!ONiTS,EQ.SeCS) go to 2 
IF!UNtTS.£Q.TMlN) GO TO 3 
IFIUNITS.EQ.HOUR) GO TO H 
1 F!UniTS.EQ.DaYS) go to 5 
C WR1TE!2.b01) units 

C 501 FORMAT!/* YOU CANNOT ASK FOR TIME UNITS OF *.AH.*.*/ 

C * HHh type aSECSS.eMlNSe.SHOURS, OR BOAYSS below / 

c ♦ * UNIT*) 
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C REAO<2»500) units 

C GO TO 1 

2 NTlME*T*60» 

lF(NTIHEtLT*NTIMEP ) GO TO 6& 

IF<NT JHE*LT* (NZ*n»60) gO to 6 

NZ-NZ^l 

GROSSU-TMIN 

GO TO 6 

3 NTIME»T 

IFINTIME.LToNTIMEP > GO TO 6& 

IF(NTlME*LT»<N2*i )*60) GO To 6 
NZ»NZ*l 

GROSSU-HOUR 
60 TO 6 

** ntime-t/ao* 

IFlNTlMEtLTfNTlMEPI GO TO 6& 

IF(nTimE.lT» <NZ*n*2*U GO To 6 

NZ»NZ+l 

GR0SSU*»DAYS 

GO TO 6 

5 NTIME-T/UhO. 

IFINTIME«LT«NTIMEP) GO TO 6& 

6 IFUlPHAU ) *NE*ALL) GO TO 7 

WRITE(6»7U NTIME, units, (TITLE U) ,A(J) ,J«I ,mAXNO) 

60 TO 51 

7 00 20 I > I»K 
II « NOU I 
COL( I ) » AU I > 

20 CONTINUE 

IFUTaPEO ,eO. INOOO) GO TO 
CALL NTRAN(7, I »400,Ai j) 

123*j if (J.LTtQ) GO TO 123^* 

3M IF(K-10» 75,75*70 
75 WRiTE(6,31) NTiME* (COlI J) »K) 

31 FORMATC* » ,l6»2X,FlO.<i»9tlX,FlO*‘n ) 

GO TO 51 

70 WRlT£(6,7l) NT I ME ,UN I TS , ( aEPH A ( J ) , COL ( J ) » J* I ,K I 

71 F0RmAT(/// 56X,I5,IX,A‘*//5(**X,A‘I,» » » F 10 « 'i , *iX ) ) 

SI NTIM£P«NTIME+1 

IF(NZ,LT*NN) gO TO 53 
WR{TE(^*52I NZ*gROSSU 

52 FORMAT! IH» IX, AMI 
NN-NZ+l 

53 IFlNTlMEttT.NTlMECl Go To *5 

5M REA0(5,MQ0) NTIMEC.CUNITS, symbol, CVALUE 
MOO F0RMAT( U,A‘*,A‘*,E13,6) 

IF(STmB0L*EQ*CUnITS) go To 
IF(CUNITS,NE*BLANK) go to 59 
C 1«*5 

lF(A(2),GTt*5} A(2)«*5 
C 0T»DTMAX/5. 

C TNP-T+OT 

H50 DO 55 MN*1*MAXN0 

lF(SYMBOL«EQtTlTLE(MN) ) GO TO 57 
55 CONTINUE 

C WR1TE(2,5A) SYMBOL 

C 56 F0RmAT(/» I DO NOT RECAtL ’, AH, ♦BEING READ |N WjTH ThE ♦/ 
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listing of whole body algorithm 

• • INITIALIZING DECK* TRY AGAIN TO CHANGE ITS VALUE •/ 

• ♦ by typing below A5 FOLLOWSi*/ 

• » ABC » XXX.XXXM 
REA0(2,5Q0) SYMBOL >CVALUE 

C 5Q0 FORHAtI AH , 1 X »F8*3) 

C GO TO H50 

57 WRIT£(i|58) NT I ME , UN 1 TS , SYMbOL ♦ A I MN ) ,CV ALUE 

58 FORmaTI* »i»AT*i5,IXiAH, 

I IX,AH»» CHANGED FROM »»FlO»3|» TO »,Fl0.3) 

A(MN)*CVALUE 
GO TO 5H 

59 IFIK tGT* 10) GO TO 82 
WRITE(6i86) CUNITS, iALPHA(U) »J»l »K) 

86 FORhATI’O • »AH»IOI6XtAH,|X) ) 

82 iF(UNITS«EQ*CUN)TS) GO TO As 
IFIK tLE* 10) 60 TO 83 
WR|TE(6»60) UNITSiCUNITS 

60 FORMAT!* OUTPUT HAS BEEN CHANGED FROM *Ani* TO *» 

• AH»*«» ) 

83 UNlTS»CUNlTS 
IFIUNITS.EO.SECS) GO TO 61 
IFIUNITStEQtTMlN) GO TO 62 

if(units»eq*hoor) go to 63 

NTlMEP«T/lHHO.+t . 

NZ»T/IHH0t*7. 

60 TO 6H 

61 NTIMEP«T*60*+1 • 

NZ«T 

GO TO 6H 

62 NTIMEP-T+U 
NZ«T/60t 

60 TO 6H 

63 NTlM£P*T/60f+l* 

NZ»T/lHHO. 

6H NN*NZ^1 

65 return 

66 IFIJTAPEO «EQ, INOOO) GO TO 35 
caul NTRaNI7,9) 

35 STOP 

SUBROUTINE TTYIN 

COMMON/ARRAY/AISOO) ,TITLE<5oO) iCOL(ZO) tALpHAiZO) 
COMMON/NUMERO/K»NO(20) , 

I NTIMEC tUNITS»NZ,NTIMEP»NN,MAXNO,NTlME 

C0MM0N/TTYI08/VcHGS(200,2) »JTSTEP(100»5) iPLOTPT jPLOTTH 
COMMON/PPPPPP/PLOTBFI iOl f6) tRUNSTPf jeXECI t IPLTPT 
I .TLOTBFI lOI ) iKSTOPP 

COMMON/DEMAND/ITAPEO»ITME, lEXECN»|CONVI .T nOUT *XXl 
OATa ST0P/*ST0P»/» IPlL/*PLOT»/ 

DATA BLANK/* »/♦ DONE/ * DONE* / 

OATA IISTEP/»STEPi/,1NOOO/*N */ 
data SAME£/*SAME*./ 

DATA JMORE/*MORE»/f JRUN/»RUN */ 

DIMENSION ITSYH(H), ALPHA2I6) 

data iTSYm/»SeCS» ,*miNS» I’HOUR* ,*DAYS*/ 

DIMENSION TDELTA(h) 

DATA TDELTA/«0l666667t I • t60« > IHHO*/ 
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DATa ZR0/*0 ViPLSSS/** */»exppp/*e */ 

TDELTAU) ■ I* / 60* 

RUNSTP • 0« 

PLOTTh ■ AtlJ 
IPLTPT * 1 
C 
C 

MAXNO > BOO 

c 

c read input Variables wanted* 

20 WRITE(6»21 ) 

21 FORmAT(» output wanted or SAME*ST0P (6A‘U...*) 

READ{&*22,ERR«20) ( ALPH A2 ( J ) » 1 » & ) 

22 F0RMAT(6AH) 

IFUlPHA 2U) .NE* STOP! OO TO 100 
IFUibOO) *LE, 0.) GO TO 501 
C OUTPUT FILE OF FINAL .DATA**** 
qO B20 I s 1»500 

IFU vEQf 1 *0R* I *EQ* 27B tOR* I •EQfBOOlAU) *■ 0* 
IF(1 .EQ* 5001G0 TO 512 

IFUd) «EQ« 0* *aNO* TITLE! n«EQtBLANK)GO TO 520 

512 WRlTE(St510) A ( 1 ) » I » T I TLE U 1 
BlO F0RHAT(Ei3*6*2X»lS*2XiA<t) 

BACKSPACE 8 

READ(0*51U { aLPHaUI »j*i »io) 

511 F0RmAT(13A1) 

1F!ALPHA(12) .NE* BLANK) GO TO 52R 
C HERE IF 0 data* 

ALPHAU2) » ZRO 

ALPHAU3) ■ ZRO 

52R IFiALPHAUl) .EQ. PLSSS) ALPHAUI) • BLANK 

backspace 8 

WRITE 4 8,513) t alpha (J) »J» 2iiO) tE^PPP, 

I (ALPHA! J) ,J«ll» 13) ,I »TITLE!I ) 

513 F0RMAT!13Alt2X»l5,2K,A^) 

520 CONTINUE 

I ■ 0 

WR1TE(8,522) I 
522 FORMAT! 15X, l5) 

END FILE 8 
WRITE(6,533) 

533 FORMAT!* STEADY STATE FILE CLOSED.*) 

501 iFljTAPEO *EQ* INOOO) STOP 
END FILE 7 
107 WRlTE!6,10t) 

101 FORMAT!* OUTPUT FILE CLOSED. NORMaL EXIT.*) 

STOP 

100 1F!ALPHA2!D *EQ* SAMEE »AN0* ItME ,NE. 1) GO TO 160 
K • 0 

DO 25 J • 1,6 

IF!ALPHA2(J) .EQ* BLANK) GO TO 27 
K ■ J 

25 CONTINUE 

27 IF!K »EQ. 0 ) GO to 20 
IF(K *6T. 6) K ■ 6 
DO 35 I ■ 1 »K 
DO 3H J » 1 ,MaXN0 
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listing of whole boot' algorithm 

Jl «* J 

IFlALPHAZm *EQt TlTLEIJ)) GO TO 3l 
34 CONTINUE 

c here if an output symbol bad. 

wRITE(6,29) aLPHA2<I) 

29 FORMAT!* SYMBOL *iA4»» WRONG* TRY AGAIN*') 
GO TO 20 

C HERE IF A GOOD SyMBOLf 
31 N0( I ) a Jl 

AlPHAU) » AlPHA2(1) 

3B CONTINUE 


160 ISTEP « t 
IVC “ 1 

START OF INPUT FOR A TIME STEP* 

read any CHGStWANTED. 

39 I I Vc ■ 0 

IFllCONVl *E0* JRUN) GO TO 301 
WRITE(6*40) 

40 Format!* Input waited chgeo,!A4»2xiFio*4) ♦ » 

I * OONE<* NO MORE CHGES,,**) 

42 WRITE!6*4I) 

41 FORMAT!* SYmB VAlUE***») 

301 READ!5*43»ERR»42) SYMB0l*CVALUE 

43 FORMAT !A4,2X»F10*4) 

|F!SYm 60L *EQ« DONE) GO To SO 
1F!SYMB0L eEQ, BLANK) GO TO 42 
DO 4S 1 ■ lyMAXNO 

I I “ I 

1F!SYmB 0L *EQ* TITLE!in GO TO 46 
4b CONTINUE 

here when a symbol not RECOGNUED* 

WRITE!6,49) 

49 FORMAT!* SYMBOL NOT RECOGNIZED* TRY AGAIN**) 
303 IFIICONVI *EG« JRUN) GO TO 301 
60 TO 42 

46 VCHGSnVCtl) ■ U 
VCH6 S!iVC» 2) * CVALUE 
IFilCONVl »£Qt JRUN) GO TO 302 
WRITE!6,1S0) SYMBOLiCVaLUe 

150 FORMAT!* » t A4 ,2X iF 1 0* 4 ) 

302 IF!IVC *LT* 200) GO TO 4? 

WRlTE!At48) 

48 FORMAT! • BUFFER FOR ChgS*FUlL**) 

GO TO 50 

47 IVC »IVC ♦ I 

live • live ♦ i 

GO TO 303 


read time step card* 

so If!IcONVI tEQ.« JRUN) gO TO 304 
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313 WRITe(6.5S) 

55 format*’ time STEP ( AR » I X * F 6 # 0 1 F 6 1 01 • * • * / 

I • UNIT PRINT TIME (UNI T»DAYS »HOUR , MINS ,SECS »ST£P) .. t 
30M REA0(5t56»ERK«50) 1UNITS>XP>XZ 

56 FORhATCAH, iX*2F6»0) 

I “ XZ 

12 « XP 

IFdUNiTS «NE. IISTEP) 60 To 200 
C WILL CALCULATE AND OUTPUT RUN STEP# 

CAEL TlMPRT(PLOTTMt IDI iIHI»lMi»lSl) 

TT • PLOTTM ♦ RUNSTP 

CALL TlHPRT(TT»lD2iiH2,iM2ilS2) 

CALL TIMPRT(RUNSTP,I03,IH3» IM3» IS3) 

WRITeU. 108) lOIflHItlMI »lSl» 102*1 H2.IM2> 

I iS2i ID3 * ih3* 1M3) 153 
108 FORMAT!’ RUNSTEP »,7(»,*>»’ BEGIN** 

1 l3Xt7(*#»)** END’»aX*7(’*’»i* INTERVAL’/ 

2 ’ »»I3»’0AY*.13»»HR»*13»*MN’»I3»’SE*» 

3 2(3X,I3. ’DAY* ,13, »HR» ,I3,’MN» ,13, »SE* n 
2QQ DO 58 II * i,M 

ITSY • II 

IF*iUnITS iTSYMtiin GO TO 62 

58 CONTINUE 

c here when error in time unit* 

GO TO 313 
C 

62 ip( I «LE* 0) GO TO 50 
IF* l2 ,lE* 01 GO TO 50 
JTSTEP* ISTEP, I ) • 1 
JTSTEP* ISTEP»2) » iTSY 
JTSTEP* ISTEP*3) » HVC 
JTSTEP(ISTEP,S) » 12 
C RUNSTEP ■ MINS FOR RUN STEP* 

RUNSTP *• RUnSTP ♦ ( FLOAT ( I ) •TOEl’I A * I TSY ) ) 

PLOTPT • RUNSTP / tOO« 


read exec Parameter. 

lF*iCONVl »eQ. JRUN) gO to 73 

69 .WRITE(6,70) 

70 format*’ exec param.iar) *more,run) #»•* I 

73 READ(5,72,ERR*69) lEXECI 
72 FORmATIaHI 

IFUEXECl .EQ. JMORE) GO TO 80 
IFdEXECl *EQ« JRUN) GO TO 80 
iFtlEXECl *EQ* IPLU GO Tq 80 
WRlTE(6*75l 

75 FORMAT** DO NOT RECOGNIZE EXEC PAR* TRY AGAIN*’) 

GO TO 73 

80 JTSTEP* ISTEP»hI ■ lEXECI 

IF*IEXECI *EQ. JMORE) 60 TO 900 
631 WRITE*6»629) 

629 FORMAT** INPUT I*IF WANT T*> CALL SHORT TERM MODELS’) 
READ*5,A30,ERR*631) A*N99) 

630 F0RmAT*F12*O) 

GO TO 90 
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9Q0 iSTeP ■ ISTEP ♦ I 

IFdSTEP *LE* >00) GO TO 39 
C 

WRlTE(6i8B) 

85 FORMAT! » BUFFER FULL FOR TIME STEPS*?) 

JTST£P<50,<U « JRUN 
90 RETURN 
^ End 

^ SUBROUTINE TTYOUT 

COMMON/ARRAY/A<500) ,TITLE<SoO) »COL(20) »ALPHa(20) 
COMMON/NUhERO/K*NO(20) I 

I ntimec *units*nz,ntimep*nn,maxno,ntime 

COMMON/TTY I 00/ VCHGS 1200,2) i JTSTEP (1 00 , 5 ) i PLoTPT , PLOTTM 
common/ demand/ iTAPEOt iTm£» IEXECN* I con V I iTnOUT ,XX1 
COMHON/PPPPPP/PLOTBFUOI ,6) ,RUNSTP ,IEXECI ,IpLTPT 
I ,TL0T8FU0l) »KST0PP 
COMMON/STORE/ jUnk( U8) ,hEaOU9) ,No£XP 
COMMON/SEGU/TlMEC,TIMEP,iSTEP,JVC,ITSY 
DATA INOOO/’N »/ 

DATA JMORE/»MORE»/,jRUN/»RUN »/ 

DATA IPLL/»PL0T*/ 

DIMENSION TDELTA!^) 

DATA TDeLTA/ •01666647, I* *60* , 1^<)0*/ 

C 

c 

KSTOPP « 0 
TOELTAU) ■ 1./60, 

T ^ AU ) 

C SEE IF TIME TO BUFFER VARIABLES TO PLOT, 

IFIT «GE. TIMEC tAND, JTSTEP U STEP , *U 
I *E0« JRUN) GO TO 71 
IF(T .GE, TIMEC ,AND, JTSTEP U STEP ,<♦ ) 

I tEQ* IPLL) GO TO 71 
IFIPLOTTm »6T* T) 60 TO 80 

71 IFUPLTPT ,GT, 101) IPLTPT ■ iOl 
IFUTAPEO *£Q, INOOO) GO TO 72 
WRIT£!7) (A( I ) tl*l ,500) 

TNOUT ■ TNOUT ♦ U 

72 TLOTBFCIPLTPT) • T 
DO 81 I ■ 1*K 

J ^ NO(l> 

PLOTBFUPLTPT.I ) ■ AtJ) 

81 CONTINUE 

IPLTPT » IPLTPT ♦ 1 
PLOTTh • PLOTTM ♦ PuOTPT 
IFCIEXECI .nE. IPLL) GO To 80 
C SEE IF THIS ROUTINE CALLED JUST AFTER INPUTTING* 

80 IFIITHE *EQ* 0) GO TO tOO 
ISTeP • I 
IVC ■ I 

IFdEXECi *EQ* IPLL) GO TO 200 
WRITE(6,361 ) NOEAPytHEADiJltJ*) » 15) 

WRlT£(6,211) (ALPHA! J) »J«1 »k) 

IPAG ■ 2 
GO TO. 200 
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c here afTeR a loop ThRou model* 

100 IFUEXECl tEO* (PLL) GO TO 35 
C SEE IF TIME TO PRINT. 

IF<T .LT. TIMePI .RETURN 

OUTPUT VARIABLES. 

COMPUTE TIME. 

CALL TlMPRT(T,lOl»lHl.lMl.ISn 
build OUTPUT IN COLlS). 

I I DO 15 I - 1 ,K 
J « N0( I ) 

COLU) “ AIJJ 
15 CONTINUE 

ASSIGN 17 TO LBACKK 
60 TO 310 

17 WRITE(6,I8) iDl ilHt iIMI , IS l (iCOL(J) tU>I >K} 

18 FORMAT!* » i‘ii3i5FlO.*t,F9.3) 


COMPUTE NEXT TIME TO PRINT, 

30 I « (T / TDELTAdTSYl) ♦ jTSTEP (IST£P ,5 » 
TiMEP ■ I • TDELTAljTSY) 

SEE IF END OF TIME STEP* 

35 IF(T .LT. TIMECl RETURN 


here When finished a time sTeP» 

IF< jTST-EPt iSTEPt^U *eQ* JMOReJ qO TO 50 

* 

HERE WHEN FINISHED RUN STEP* 

KSTOPP . 1 

IFUEXECl .EQ. IPLL) GO TO 360 
GO TO routine to PlOT* 

360 CONTINUE 


HERE WHEN NEED TO 60 BACK TO TjYIN TO GET NEW TIME STEPS. 

iexecn « I 
return 


HERE When next time step is in UTSTEPl50»M> » and 

CHGS.FOR same IN VCHGS ( 200 *2 ) • EXEC PARaM«IS MORE* 
50 ISTEP » ISTEp ♦ I 
C 

C COMPUTE TIME, 

200 CALL TIHPRTITtlDI tiHl *IHI tiSI ) 

C SEE IF ANY ChgS ♦ ASSOC I aTED WiTh ThiS TimE STeP. 

201 1F(JTSTEPUSTEP>3) ,EQ* 0) GO TO 210 
IF(A(2) .GT. .5) A(2) - .5 

1 I a VCHGSI IVCiI ) 

IFUEXECl ,EQ, IPLU 60 TO 406 
assign 205 TO LBACKK 
GO TO 310 
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205 WRJTe(6,206) I D I i I H I i I M I » I S I » T ITLe < 1 H » A ( I 1) # VChQS U VC »2 I 

206 FORMAT!* AT »tl3i* DAY»»»l2,* HR»*^»I2» 

1 » MIN, * , 12, • SEC* , 

2 • ••• FROM* ,F10,*!, * To’fFlO.H) 

HOS A( I n • VCHGSUVC,2) 

I Vc' » IVC ♦ 1 

OTSTEPI ISTEP,3» » JTSTEP ( J STEP » 3 ) - I 
GO TO 201 


PUT MaX«TIME for time step in TIMEC* 

210 ITSY • JTSTePUSTeP»2) 

I ■ (T/TDELTA( iTSY)) ♦ jTSTEPI iSTEP,l » 

TIMEC ■ 1 • TDELTAUTSYl 
IFIIEXECI »EQ, IPLL) GO TO 35 

OUTPUT IF THIS 1ST TIME TTYOUT CALLED* 

IFUTME *EQ* 11 GO TO n 

PUT NEXT TIME TO PRINT IN TIHEP* 

GO TO 30 

routine to aSK for HaRd COPT every 25 LINES, eRaSE Pa6E,0UT HEADING* 
310 IF<IPLTPT *EQ* JRUNI go To 332 
IPAg ■ IPAG ♦ 1 
IFIIPAG ,LT, 25> GO TO 332 
write (6, 36 I 1 NOEXP, (HEAD! J) ,J»1 ,15) 

361 FORMAT!* »,iH,2X,I5a‘U 

WRITE!6,2I1) (ALPHA! J) ,J»| ,K) 

211 F0RMAT!*00AY HR MN SE • , A ! 6X , A4 1 ) 

IPAG « 2 

332 GO TO LBACKK! 17,205,360) 

^ subroutine GUYYY 

PROqRaH GUYTON 

CIRcOLaTORY qYNaMIcS - cIRCE 
CiRCEl 

REAL NAE,NED,NID*N0d, 1 I ,LPK ,K I D ,H02 ,NOZ , KcZ ,HPL ,HPR , I2 , 1 3 , HKO 
real LVM,I ,IFP,KE,KOO,KIR,Kl ,LPD»KEI 
Real kco,keo,kni ,kn3,naOikIe,ko 

DIMENSION FUNi! i<() ,FUN2! ,FUN3! H) *FUNH( H) *FUN6! |FUN7( IH) 
COMMON/TOSHOR/TTSHOR!20> ,FFSHOR(20) 

COMMOn/ARRAY/T,I ,VBO,VVSiVPA,VAS,VlA,VRA,VAE»PA,PAM»lVH» 

• VRE,PRA,QRN,VPE,PPA,PPI ,CPA,RPa,RVM,VLE,PLA,QLN,PLI , 

• A18,RPV,RPT,P6L,QP0,Q5 , WE , VV8*PVS»PGV ,RV6 ,QV0, AVE 
C0MM0N/ARRAY/CN2,CN3,RVS,PGS,RTP* QAO*QRO,QLOf DVS, dPA,OAS,oLA*dRA, 

• PAt ,AUC,AUB,AUN»AU6*AU2»AU8 ,DAu*AUJ*AU , AUO , AUH , V , 

• AU9,AUM,AUHiViF,P0i ,pTT*PTS,PlF»CPl #PTC,CPP,PPC,PV6 
COMMON/ ARRAY/PC »PCO » VTC f PLO * VTL , VTp » VPO »0PL *CP I lOPC ,DP I ,LPD »DLP * 

• DPP,CHy,PRHiPGR,CPG,PGP,GF 1 ,pGXfPGCtPGH,PG2fVGD»VG * 

• EPH,G50,GP2,GPD,AAR,RR ,RFN * APD * 6Lp ,PFL *6FR , TRR , VUO 
common/ ARRAY/ReK,NOq, Ned *NA£,V eC,CKE,KOD»KEI tK|R,KlE*KCD*K£D*CKI 9 

• CNA,CCD,VI0»KE ,k| ,VlC,ll fV.TYtZ »VTZ,VU2,TVZ,PPZ, 

• DFZ,X ,12 |PRI,VTS»VP ,PRP » I Fp ,QPR ,KN3 ,KN I » AMR , AMP 
COMMON/ARRAY/AMI iAMC»g5I iAM3,AM5,AM *cNE»AGK* ANP» AN l »ANC»G52 sgSSj 
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listing of whole body algorithm 


AN5 

»ANM 

*VB 

»HMI ,HM 

*81 

*VlE(Vl8»VlM 

*RC2|P02*RKC >RCI » 

RCD 

iVRC 

»RSN 

fOVAiBFN 

iDOB 

* AOM«pIo»OSV 

»P0T.P0D,P0B»AR1 

C0MM0N/ARRAY/AR2 

»POC 

» AR 3 

♦aRm.cnb 

»gfn 

» AH 7 » AHs * AH 

*AHC|AH) *AH2*AHr* 

ahm 

tCNY 

,CNX 

,Wl ,VV2 

. VV5 

,VV8 , W7 *TVd 

,VTW,HSR,hSL,NID» 

SR 

» VVR 

»RAR 

fCV *CN7 

»AUX 

*auk*aUz»y 

*CFCiCPK»PC£»CPR 

common/array/lpk 

iDPO 

>HYL 

iKlD.AMT 

»ant 

,pok.pon*aik 

*A2K*A3K*CNR*CNZt 

AHK 

tSRK 

iV9 

tVZD.Zl 

*Z2 

,Z3 *Z5 

yZ8 tZ7 *ZB *HMK* 

hkm 

iPOV 

»POZ 

*R00tQ02 

*RBf 

,H02 iPOa.POY 

>ANU*P0R*GF2»HMd 

common/array/dhm 

»POQ 

.13 

*U ,VPl 

iTl 

,6F3»GFm*AUP 

*AUV,RVl,AUY»OUT» 

DSP 

lAHZ 

*AHY 

tOSA.PPi 

tCPN 

,POSiPLF»PPO 

»PPN.PPD*PFI »DFP* 

VPF 

»PPR 

.PMC 

»PMS»PMP 

» HR 

*CPF»PCp»OAI 

*DLZiDPY*oPZ*GPZ 

common/array/noz 

»KCZ 

*VIZ 

»hpr,hpl 

»STh 

,AL0,EXc»02M 

*PA2*PP2*SV0*AUL> 

VV9 

(02a 

*Q1 

(EXE.ARF 

»QRF 

,rsm*bFm*ram 

*OVS,PVO*RMO>QOM* 

PMO 

>P20 

»MM0 

»pdo»poe 

»amm»a'*k»pom*omm 

*PMI .PM3*PM*J»EXI 

C0MM0N/ARRAY/Q2 

,Q'3 

,PM5 

,PKi ,2? 

>Z10 

,ZI I .Z12.ZI3 

*Zn*Z15,zU*PK2* 

PK3 

»FIS 

.sta 

fPAR.GBL 

»ANY 

*ANZ,aNX*ANV 

*ANW*ANR*aUQ*AUR* 

AUS 

*A37B|H1 

*A2 >A3 

iAUCB* auab.ccb.cab* 


lAUHj ,AUH2»AUH3»V0T1 , VOT 2 » VOT 3 » VOT » RTR » V I L , V aSO , VRAO , 
2-VLAOtVVSO»VPAO#RNS»RSR.ANeS,B»RT»CRAfRNK ,RC,CAlVtCAS,AN 2 , 
3AKA,ANCN»ANMM»AN3,ANTCfAN6SS*ANGT,AoANAR#AN£R»ANKtOESC,VUGF» 
MU0C.6PI ,V0B,RNA,V6l »SRI ,V7l iSRL»VA2,SR2tV72»X6»X7tX8i 
5 aTH,aMS,POF,POU»AM2,a5K.NAO,KO,CAAiSRM.VINT,VUS, 

AqUMMYISI ) .T lTLEtSOOl . dUHNYIHO) 

C0Mh 0N/NUMER0/K,N0(20I .NTlMEC,UNlTS,NZiNTlMEPtNN,MAXNO,NT|ME 
COHMON/STORE/NGI tNG2*NG3»NGH»NGBf N66|NG7>NG8>NG9tDTtTLP iTNP»ND» 

• TM.TMM»NfIRST#Z2U5) ,0eYC 9> ,0BY(9) »YM|NU0) ,YMAX(lO) » 

* N»PTI1 8l »BETAUO) .NGRAPhUO) .GrAPHUO) ,HEADU9I iNOEXP 

* iDTMAX . 

COMMON/TAPE/TOTAL 

DATA FUN| ( i ) »FUN J ( 2 ) ,FUNl <3) »FUN| ,FUNH5I fFUNj (6l tFUNjI?) 1 
•FUNlia) ,FUNM9) ,FUN| ( 10 ) »FUNI UJ) »FUNI ( U)/ 

1 0**l*»&0*tI**I25t(l*tl60«(I«t2HQ*tI«i300«»0*/ 
data FuN2( I ) »FUN2(2) iFuN 2(3) tFyN2(<U tFuN2 ( B ) • FUN2 ( 6 ) ,FuN2 ( 7 ) , 
•FUN2(8) ,FUN2(9 )iFUN2( I0)>FUn2(U ) .FUN2 U 2 ) »FUN2 ( 1 3 ) »FUN2 (J S ) / 
***lOO**0*0**6*»0«0»«*3»t«7St”It»2«8t2«»9*8i8*»)3*5»l 000* > 1 3 • 5/ 
data FuN3( D »FUN3(2) ,FuN3(3) ,FuN 3(^) , FgN3 ( 5 ) , FgN3 ( 8 ) ,FuN3( 7 ) , 

• FUN3(8) ,FUN3i9) ,FUN3( 10) ,FUN3(U ) ,FUN3 ( 1 2 ) ,fUN 3 ( 1 3 ) ,FUN3|l*()/ 
*0«0»I»06f20*t*97t2^«»i93t30«f«8i38«t*'(8«^S*i0*fR5«t0*/ 

data F0NH( I) »pUN‘((2) *fUN*M3) »FMN‘((H) ,fUNH(5) , FUnH ( 8 ) ^FUN** ( 7 ) , 
«FUN^(8) »FUNR(9) iFUNrUO) iFUnrU I ) tFUNR ( I 2 ) t FUN<) ( | 3> »FUN<( (}<!)/ 
**IOO*tO**'>‘(*»0«**I*»3*8»3»i9*Ht8*tlI«8fIO«t|3*5ti 000* * 13*5/ 
data fUN 81 I ) tFUN8(2) »pUN8(3) f FUNaiM) , pUN8 ( 5 ) , FUN6 ( 6 ) ,FUN6(7) , 
*FUN6( 8) >FUN6(9) »FUN6( )0) »FUN6< U> iFUNAI 12} *FUN6U3> *FUN6( )<<}/ 
*"I00«>1 0000* »0*. »70(|«4»9«3t*8»3«3|)t2tl*3»|*6»*H3»I00*»0*/ 

DATA FUn7( I ) »FUn7(2) »FUn7(3) »FUn7 ( H ) , FUN7 ( 5 ) , FUn7 C 8 ) ,FUn 7 ( 7 ) , 
♦FUN7(8> »FUN7(9} »fUN7( 1 01 1 FUN 7 UU jFUNTtU) ,fUN7U3> ,FUN7( HI/ 

*0 • 1 7 • 1 30 •»8«2Bi80*t3«t 1 00* tl** |80*t*l5t*(00*i*05t ^00* 1 • OS/ 
dimension fUNBUR) ,fUN9( H) ,fUN10( IH) ,fDNU ( hi »FUNI2( IH) 

DATA FUnB/0* *0*01 *53* »&0* >86 • * H2 • »83* * 2B« , I00« *0*71 > 125* > 

I 0*>300*>0>/ 

DATA PUN9/0*»«08t7B*t *05 * I OO* t0*tl2St>>**I>l 50* *•*32»I75*>••35» 

I 300 • 35/ 

data FUNIO/O* *0* *75* *0* * lOO* tO* * I 25* f«04 * I50* *•* 12* 
i 200* »**23*300«t**23/ 

DATA FUNII/0**t*38»60*tl*2*IOO**I**IHO*f*S> 

I 1 80 • I * 85 * 250 • * • 5 * 300 * * • H8/ 

DATA FUN12/0* *3*87(50* *3«9l *75* *<i*I2*I00* *H*25* 125* * 
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LISTING OF WHOLE BODY ALGORITHM 

1 4»9tI50» »S« U (300* |5«23/ 

COHMON/oEMANd/ITAPEO» iTME* IeXecN» ICOnVI »TM 0UT |XXl 
DATA INOOO/»N */»IYOOO/*Y * / 1 1 SpOL/ ♦ RUN ♦/ 

C 

102 T-T4-I2 
SUBROUTINE HEHO 

CIRCULATORY DYNAMICS BLOCK 

c hemodynamics 
c 

vbd«vp*vrc-vvs-vas»vla-vpa-vra 

VVS»VVS*DVS*l2+VB0*t3986 
VPA*VPA+DPA*l2*VB0*t 155 
VAS*VAS^DAS*l2+VB0*.26l 
VLA«VLA*DLA*I2+VBD*» 128 
VRAsVRA4DRA*I2«VBD*,057<< 

VaSO « *116 * ANV 
VAE • VAS - VASO 
PA»VAE/#00355 
IFIPA*LT.0.» PA«*OOOI 

pah»ioo*/pa 

PA2-PA/AUH 

CALL FUNCTN(PA2.LVM,FUNn 
VRAO ■ *0235 • ANV 
VRE » VRA - VRAo 
PRA»VRE/*005 

call FUNcTN{PRA»QRN,fUN2I 
VPAO ■ *072 • ANV 
VPE » VPA - VPAO 
PPA«VP£/*00R8 
PPI**028*PPA 

IFIPPI #LT*Of > PPI»10***«*I2I 
RPA»PP1**(«*5) 

PP2*PPA/AUH 

IF(PP2.LE*0* I PP2..000I 
CALL FUNCTNIPP2fRVM,FUN3l 
VLAq ■ *0’‘U • ANV 
VLE « VLA « VLAO 
pla-vle/*oi 

CALL FUNCTN<PLA»OLN,FUNh> 

RPV«l*/(PLA*20# )/*0357 

RPT»RPV*RPA 

PGL*PPA-PLA 

QPOmPGL/RPT 

ANU«ANM 

IF CAnU*LT** 6)ANU«*6 
VVE « VV5 ••69^*ANV«(ANU»t*)*ANY 
- VVSD ■ .69H*ANV*(ANU-I # )*ANY*VVT 
VV8 * VVS«<VVSO 
IF( VV8f ETvtOOOl ) VVSatOOOi 
.PVS»VV8/CV 

VUS a VASO<«>VRAO+VPAO + VLAO»VVSO 
PRl-PRA 

IF <PRA*L7*0*)PRl»0# 

RVGa2t738/PVS 
QVOa«PVS*PRl )/RV6 



o 4^ o 


6k 


listing of whole body algorithm 

CN3«CN3^( UPC-I7f ) *CN7* I 7 * ) *CN2»»CN3 | . I 
AVE»(AUH"‘l»)*AUY+l. 

RVS»AV£«( I •/CN3»«V1M«( ( ANU-I t ) *ANZ« | • ) 

PGS«PA-PVS 

RSN»RAR*ARH*AnU*AUm«PAM*VIM+RVS* 1 t79 
BFN«PGS/RSN 

RSM«ANU*V IM*PAM«AUM*AMM*RAM 

bfm-pgs/rsm 

0SBF*(FFSH0R<2>«*22* 8 3) •0*007962 
QA0«BFN + BFM + RBF*DS8F*(PA-*PRA)*FIS 

qlo«lvm*qln*auh*hsl*hmd*hpl 

QR0«QRN* ( ( I *-QRf ) •aOH*RVM*HSR*HMD*HPR*QRF*QLO/QlN > 

qpo«qlo+(qpo-qlo)/u 

qvo*qro* ( QVO-QRO ) /X 

ovs*qao-qvo 

dpa»qro-qpo 

OAS.QLOoQAO 

OLa*OPO-QLO 

DRA^GVO^QRO 

subroutine auto 

AUTONOMIC control BLOCK 

120 EXE*U*-P20i#EXI + (EXC»I • )*ZI2 
POQ*POT 

IF <P0Q*GT*8* iPOQ^fl* 

IF (POQ,LT,M,)POQ-M, 

pai»pa*poq/b»-exe 

AUC>0* 

IFIPAl .LTiSO* )AUC««03*<B0*"PAU 
IFIPAl .LT.HO. ) AUC*U2 
CALL FUnCTnIPAI »AUCB»FUn’) 

CALL FUNCTNIPAI (AUABiFUNlQ) 

AIB > I**-CC6«AUCB4'CAB»AUAB 
12R AUN*0 

IF(PAi*LT*50* )AUN**2»(5o*-PA l) 

IF(PAI*LT*20* )AUN«6,0 
AU6*aIB-AUH 
AU8-AUK* < AU6- 1 1 ) 

0AU«0AU«>( AUC«AU6^AUN**DAU)/2/Y 
AUj»AUj*(OAU"AUj) ♦ i2*6*/Z6 
IFUUJ*LT*0*-) AUJ»0* 
iFlAUJ*I.)U&,l27,I27 

126 AU*AUJ#*AUZ 
GO TO 128 

127 AU«(AUJ*1*)*AUZ4-1» 

128 1f(STa*GT*, 00001 )aU»STa 

AUO»AUv 1 • 

AUP«AU0*AUQ* 1 « 

CALL FUNCTNIPAI ,AUH1 ,FUN'U ) 

AUh2 « AUh1«*AUH3 

AUH » AUH4>(AUH2*AUH1«I2*6*^Z8 

IFISTA «GT* *00001 )AUH«STA 

aur«auo*aus+) * 

CALL FUNCTNIPAl »VOTi »FUN12> 

V0T2 ■ VOTl - V0T3 
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USTINS OF WHOLE BODY ALGORITHM 

VqT « VoT+( VoT2^VoT»*l2*6,/Z8 
IFlSTA .6T. .00001) VOT •* H,25 
ANV ■ VOT - AUV 
AUH“» I5*.85*AUP 
C 
C 

|F( I3.LE. I2>G0 TO U8 
IF(ABS<0AU-AUJ J.QT.DAl) RETURN 
110 IF (ABS(QA0*0LO)«GTt.2)RETURN 
IF (ABS(QA0'..QP0) ,6T, *2>RETURN 
IF (AB5{QA0-QR0» .6T,.H)RETURN 

subroutine HORMON 


»**»*»*************«*«****************»**»****************************®**** 

aldosterone control block 

• «**»****«*»»«**********#*******'***»*****«»*»*»**»***«*»**®*®****«* 

168 AMR-CKE/CNA/A3-A2 
IFiAMR.LT.O. )AMR*0. 

CALL FUNCTN 1 PA » AMP »FUN7 ) 

AMl«AMi+( ANM*AMP*AMR^AM1 l/Z 
AMC»AMC*(AMI-aMC)*U«-EXP<-I/AMT) ) 

Am"20.03 9'»19.8*EXP<'..0391«AmC) 

«««*««•«*«•«*«••««***«*••**•«»*»**«»****««**••»»* »«*••«***•****•«**«« 

ANGIOTENSIN CONTROL BLOCK 

• •*****<i***#******«***«*************************»*****®*******»*®*®**®****®* 

CNE«1S2.**cNa 

lFtCNE.LT*l*)CNE«n 
CALL FUNCTN(PAR,RNS ,FUN8) 

RSR « 300.*REK*RNS*( 1 .-aNGS-B*(GFR*CNA**17*7S) ) 

IFIrSR *LTt 0.) RSR»0* 

RT • RT®(RSR-CRA*RT) *U.*EKP(«1/RNKM 
RC * RT/VP 
ANl » CAIV +CAS*RC 

AN2«AN2*1AN1-CAA»AN2)*( I t -EXP I " I / AKA ) ) 

ANC » AN2/VP/ANCN 
ANM “ ANMH"AN3*EXP(-ANC/AnTC) 

IFUNM *LT* ♦5)AN«“»5 
ANSS a A»(ANC»U) 

anqs a angs+i an$s«angS)*i/angT 
SUBROUTINE BLOOD 

RED CELLS AND VISCOSITY BLOCK 
BLOOd VISCOSITY 


170 V8*VP+VRC 

HM"100**VRC/V8 
VIE«HM/(HHK-HM)/HKM 
V!BaVt£®l*5 
V 1M«« 3333*V IB 
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listing of whole body algorithm 

C RED BLOOD CELLS 

— 

RC2bRKc*VRc 

P02«Po I -PoT 

IF<P02#lT*.2375)P02».2375 
RCl«P0Y*P02 
RCD-RCI-RC2 

vrc«vrc+Rco* I 

SUBROUTINE MUSCLE 

MUSCLE BLOOD FLOW CONTROL A^D P02 BLOCK 

180 0SA«AL0*VPF*.5 
0VA»0SA*HM*5* 

INPUT FROM SHORT TERM 
OVA.OVA*FFSHOR(3»/Ot 19908 
ovs«ovs*{ I bfm*ova«rmo)/hm/5*/bfm-ovsi /Z6 
PV0«57 • I H«OVS 

RMOBlPVO-PMOlBPMS/iPMl^^PKS^PMH) 

Q0M*Q0M+< RM0*HM0 ) ♦ I I t-EXP I •! /Z5> ) 
PM0»PK2/(PKI-Q0M) 

PMIbPMO 

IF(PmUlT.PM3)PmI»Pm3 
P20«PM0 

lFiP20*6T«8t )P20*8t 
AOM«( AUP«l f ) «02A*l * 

MMO«AOM*OMM*EXC*( i * - ( 8 . qOO * * • 3* ''B I 2* » 

PDO-PVO-HQ# 

POE»POM*PDO+l • 

IFlPOEtLT* •005)POE**005 
AMS»AMS+(P0E**AMS)*U.-EXP<*1/AHK)) 

POF “ I* ♦ POU+PDO 
AM2 • AM2+(P0F-AM2)*I/AsK 
AMM « AMS*AM2 

SUBROUTINE AUTORG 

non-muscle oxygen delivery Block 
and NON-MUScL£ local blood flow control block 


AUTOREGULATION. RAP ID 


0SV»05V+( (bFN*OVa-DOBI/HM/ 5./BFN-OSV)/Z7 
P0V«0SV*57t H 
RDO“POT**3f 
1FIRD0.LT.50. IRDO-50* 

DOB* i PO V-POT ) *2896. 5/RDO 
M02»A0M*02m* * I t»18.000l-Pl01»*3./512 . ) 
Q02*Q02* t00B-M02* I * -EXP I - 1 /ZR II 
P0T»Q02*. 00333 
P10«P0T 

IFlPOT.GT.B. IPI0«8. 

PO0*P0V-P0R 

POB«POB*IPOK*POO*1 .-POBI/Z 

IF(P0B*LT..2IP0B».2 

ARl«AR| + (POB-ARlI*( I , -EXP (- 1 /A IK I I 
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LISTING OF whole BODY ALGORITHM 
ARH«ARI*AR2*AR3 

C- — ---• — — . 

C AUTOREGULATION.INTERHEDlAle 

C 

POa»POa+IPON»POO*1 *-9P0a>/Z 
IF (P0AtLT**5)P0A««& 

AR2«AR2+(P0A-AR2)»( I ,-EXP(-I/A2KM 
C — 

c autoregulation, long-term 

C--C 

IFlPOD) l9<*» jY 2* i’2 
192 POC»POZ*POO + U 
GO TO 196 

19*1 P0C«P0Z*P0D*»33+l . 

i96 if (POCtLTt ♦3»POC*f3 

AR3«AR3+(P0C-AR3»*I/A3K 

C 

C SUBROUTINE AOH 
C 

C ANTIDIURETIC HORMONE 
C 

CN8.CNA-CNR 

AHZ«.2*PRa 

AHYi»AHY*( AH2-AHY )*«0007*I 
AHS»AUP-I , 

IFIAH8*LT#,0.IAH8»0. 

IF1CNB#LT*0.)CNB-0* 

AH«AH4>(CNZ*CN8 + AH8-AHZ + AHY-AH)/Z 
IFlAHtLTtO. IAH»Ot 

AHC»AHC+( t3333*AH-AHC)*( WEXPI-I/AHkI) 

AHMB6t«( I .-EXPI-OtlaOs^AHC) I 
IF(AHM*LT« .3)AHM»*3 
C 

C SUBROUTINE MISCi 

c 

C******»***»*************ih»*********«**********»****9*********®*************^ 

C 

c VaSculaR stress Relaxation block 
c 

c»***»»**«*««*«**««*********«****« *6 ********************************* ******** 

VV6»V V6* < SR»I VVE-V9 1 -WZ^V V6l /Z 

VV7*VV7+VV6*n**EXP{-I/SRK) I 

V6I • V61*(SRI*<VVE»V9)-V6l-V7l)/Z 

V7l ■ V7l*V6l*U.-EXP(-I/SRLH 

V62 « SR2*1 VVE-V9J-V72 

V72 * V72*V62» I/SRM 

VVT ^ X6*VV7+X7*V71+X8*V72 


C 

C THIRST AND DRINKING BLOCK 



C 

TVZ«( *0I*aHM-*009.)*5TH 

tvd*tvd*(tvz-tvdi/z 

lF{TVD*LT.O*»TVDi»0* 

IFIVINT *GT* *00001) TVO*VlNT 
VTW»V IC+VEC 
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listing of whole Body algorithm 

•««**«*»«««»«**»*»*««««««*«*******4«*««***»****f*****^**^***********^**^ 

autonomic control block 
adaptation of BARORECEPTORS 


AUH«AUH+AUB«I 

AUH3 » AUH3*(aUH 2-1 , )*I*AUK 
VoT3 * VoT3*(VOT2-H.25)*I*AUK 

SUBROUTINE HEART 

heart hypertrophy OR DETERIORATION BLOCK 


heart VICIOUS cycle 

DHM*iP0T-6. )»*002s 
HMD«HMO+DHM«l * 

IF IHmD.Gt. l» )H mD«1 . 

—————— 

C MEAN circulatory PRESSURES 

PMC»l VAE + VVE*VRE+VPe*VLE)-/* I I 
PMS*< VAE*VVE+VREI/.09375 
PMPii(VPE + VLE)/*0l62& 


C 

C HEART rate and STROKE VOLUME BLOCK AND TOTAL PERIPHERAL RESISTANCE 
C 

C*«*«*««*«*«**««****«****»««**«**«* 

HR*( 32*^H I •AUR+PRA*2 • ) * I i HMD* I • I * f 5+1 t > 

IF(AUL*GT«0*000I )G0 TO 210 
60 TO 220 

210 HR-HR+IO.H/IMHO^I^T 
220 CONTINUE 

RTP»(PA-PRA)/QA0 

SV0*QL0/HR 

C 

c subroutine capmbd 
c 

c capillary membrane dynamics block 
c 

130 PTT»(VTS/I2.)**2* 

VIF»VTS-Vq 

call FUNCTN ( VIF.PTS,FUN6l 

pif«ptt»pts 

CPi-lFP/VIF 

PTC»«25*CpI 

CPP-PRP/VP 

PPCm*‘»*CPP 

PV6«RVS*1,79*bFN 

PC«PV(5*PVS 

PCO«PC*PTC»PPC*PIF 

VTC.VTC* (CFC*PCD*»VTC J/Z 

PL0»7*e*PiF"PTT 

VTL«VTL*I *004*PlD-VTL)/Z 
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listing of whole body algorithm 

1F{VTL*LT.0* )VTL»0* 

VTo-VTc-VTL-VID 
VTS»VTS*VT0« I 

C INPUT FROM short TERM 

VIL«FFSH0R(1 )/i000f/60t 

VPD»VPD+(TVD-VTC+VTl»VUD«DFP*VPO*RTR-VIL>/ZI 

VP « VP ♦ VP0*l/Z3 

c 

I*I*i#2*T*Tl 
U«ABS( VPl/VPD/ I ) 

IFdj.LT.p i»d 

IF( I3 + T-TI .LT.l ) |*13^T-Tl 

T“I*T1 
T1»T 
C 
C 

200 CONTINUE 
SUBROUTINE PULMON 

pulmonary dynamics and fluids block 


PCP»* RS«PRA + *55*PLA 

PPl*2.-.I50/yPF 

CPN-PPR/VPF 

P0S»CPN*#R 

PLF«IpPI* 1 I • )*t0003 

ppo»plf*cpn 

PPN«(CPP-CPN)**00022S 

PPD^PPD^IPPN-PPO^PPdI/Z 

1F<PPR*PPD«X-’»02&*LT*0* )pp0»( ♦025 -Ppr)/! 

PFl*iPCP-PPi+pOS»PPC)*CPF 

0FP«0FP*(PFl-PLF»0FP)/Z 

IF< VPp + OFP* l“*00l (LT«0t ) D fP*< •001-VPf»/I 

vpf«vpf*dfp*i. 

PPR*iPPR + PPO*I 
SUBROUTINE MISC2 


HEA*^T hypertrophy or deterioration block 

*•»*«*•*•*«•»*•••«*»»»*••««*••••**«« ••«**••**• 

HPL»hPL^( nPA/lOO«/HSL)**Zl3)«»HPL)*l/5760O* . 

HPR»HPR+( ( (PPA/jS* /HSR >**Z I 3**HPR)« 1/57600* 

Tissue effect on Thirst ano salt intake 


STH»IZIO«POT»*ZIUU t+ATH*(ANC».l .)) 
IFISTH.LT, I *)STH«l , 
lF(STHfGT*8 « )STh«6* 

C 

C SUBROUTINE PROTEN 



r»r»r> r^nr>nn nnr» r«r»r>or>r> 


TO 
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Tissue flu jos. pressures aNo gel block 

PLASMA AND TISSUE FLUID PROTEIN 


US oPL«dPL + ( VTL*CP1-0PU/Z 
IF (PC*lT»0* )PC*0, 

OPC«OPC*(CPK*(CPP»Cpn*PC**PCE-DPC)./Z 

DPI-DPC-DPL 

olz»lpk*(cpr-cpp> 

IF<CPP.GT,CPR)0L2»'4,*0LZ 

0LP-DLP^(DLZ-DLP)/Z 

PRP*PRP+(DLP''DPO+OPl-DPC-'PPO) *i 


GEL PROTEIN DYNAMICS 


INI PGX«CHY«*2*#QI332»cP6+CPG 

GPD»GP0+ ( ♦0005*(Cpi«*pGX) *VG*6PD)/Z 

6PR»GPR*GP0*I 

IFP»IFP<M0PI-6PDMI 

SUBROUTINE KIdNeY 

KIdNeY OYNaMIcS ANq eXc^eTiON bLOcK 

IHZ GF3*t <GFN/* I25-1 »)*GFm>*U 
IF(GF3«GT* ISt )GF3«IS« 
iF(GF3fLT*.*»)GF3**N 

AAR»3l ,67«VIM*UUM*ARF*1 t-ARF) •GF3*( 1 •♦ANAR*i ANM-I * > ) 
RR-AAR+51 t66 *V IM*U , ♦ aNER* « ANM^ I i ) > 

paR»pa-gbl 

RFN-PAR/RR 
RBF«REK*RFN 
ISO aPD»AAR*RFN 
ank • ANM 

1F(ANK «LTf u) ANK>I* 

GLP-PAR-APD 

PFL*6LP*PPC-I8* 

GF1>GFN 

GFN«GFN+ (PFL* •0078 1 i»GFN I *GF2/Z 
IF UBS(6FN-GFI ) •QT**002)G0 TO U2 
GFR>GFN«REK 

IFIDESC «GT* 0 %} GO TO ISI 
VUGF - *2*GFR 
GO TO 152 

151 VUGF ■ VUGF-*'( •2«GFR*«VU6F)«I/U0C 

152 VUD - VUGF/(U+GP1*(AnK-**J J-»*025*RE|(i:+fl00l*REK/AM/AHM 
IFiVUDtLT* *0002) VUD«« 0002 

IFtVOB *GT* *00001) VUD»VOB 


kidney salt OUTPUT AND SALT INTAKE 
(SEE ALSO electrolytes ANO CELL WATER BLOCK) 

N02»io0o**VU0/AM/(CNE/CNX^CNY) 

NOD-NOO«(NOZ*NOO)/Z 

IF(nAO tGT* *00001) nod«nao 



r>r»nn 
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NEO«NID*STH-NOO*RNA 

NAE«NAE+NED*I 

SUBROUTINE IONS 

electrolytes and cell WATER BLOCK 
160 VEC«VTS*VP*VPF 

cke-ke/vec 

KOD«( .OOOM2*CKE+.OOOIM*AM*CKE) *REK 
IF<KO tOT* •OOOOn KOO ■ KO 
KIR»2850.«IH0**CKE 
K IE«KIR»KI 

KCO«KCD*{KIE»»Ol 3 -KCO)/Z 

KI«KI*KCD*1 

KED*KID-KCD-K0D 

KE»KE«KEO«I 

CKI«KI/V 1 C 

CNA*NAE/VEC 

CCD*CkI-CnA 

vro-vio+i .oucco-viDi/z 

VIC»VlC*VID*l 

SUBROUTINE GELFLD 

GEL FLUID dynamics 
IMO CHY»»HYL/VG 

PRM«-5*9»CHY*2M*2 

PGR«*H*CHY 

CPG*GPR/VG 

PGP“*25*PQX 

PGC*PQP*PGR 

VIF.VTS-VG 

CALL fUNCTN (VIF»PTS,fUN6) 

PIF*PTT**PTS 

CPUIFP/VIF 

PTc»*25*cPl 

PGH“PIF+PTS+PRM 

VGD»V 2 D*(PIF*PGC-'PTC-P 6 H) 

VG*VS*V 60 

IF( VG«lT*0* )V6»Q# 

IF( .OU.LTtABSlyGOn GO To IMO 
C 

RETURN 

• g/ end. 

^ subroutine functnith»pol»tab> 
dimension TABIIHI 
N“H 

00 IIO I»IfN»2 
IF(TAB( i)«Th> U0tI2O»U0 
UO CONTINUE 
GO TO 140 
120 POL>TABIItn 
130 return 
140 NN"N»2 

DO ISO I«I»NNt2 

ISO IFlTABd) .LT* TH tANOt TABU + 2 ) ,GT* TH) Gq TO 1 60 
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WRITE(A.IOO) TH 

• curve limits exceeded •••** »,G12*6//1 


ioo formatisx 

t * 


IF(TH ,LT 

, TABU)) P0L*TAB(2» 


IF(TH .6T 
GO TO 130 

. TAB(N 

*•11) POL^TAB(N) 


160 POL-TAB ( I*U + (TA8( I *3) -TAB ( 1+ U ) * {( TH-TAB ( U ) / ( TAB ( I+2J-TA8( 1) ) ) 


GO TO 130 




m END 

^ SUBROUTINE T I MPRT 1 T , 1 D 1 t 1 H i » 1 M 1 o I S 1) 

c 

THIS Routine 

COMPUTES Time* for printout* 

c 

input T (TIME IN MINS.lt 

c 

OUTPUT I0l» 

OAYS.IHUHOURStiMl-MlNSi iSlaSECS. 


IDI • T / 

1440* 



XI ■ T - 

(FLOATUOU • 1440*1 


IHl » XI 

/ 60* 



X 

« 

X 

1 

(FLOATtlHl) * 60*1 


IHI * XI 




ISI • txi 

- FLOaTUMU 1 • 60* 


return 

END 
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903 

B 

HOH 

RT 

HOB 

CRA 

H06 

RNK 

H07 

RC 

H08 

CAlV 

H09 

CAS 

HlO 

AN2 

HU 

AKA 

H12 

ANCN 

H13 

ANMM 

HlH 

AN3 

HIB 

ANTC 

H16 

anss 

H17 

angt 

H18 

A 

H19 

ANAR 

H20 

ANER 

H21 

ANK 

922 

oesc 

923 

VUQF 

929 

UOC 

H2B 

6P1 

H26 

VOB 

927 

RNA 

928 

V61 

929 

SRI 

930 

V71 

931 

SRL 

932 

V62 

933 

SR2 
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. I62803E- 

02 

R3R 

V72 

• 800000E 

00 

R35 

X6 

•HOOOOOE 

00 

R36 

X7 

f lOOOQOE 

01 

H37 

XB 

.580000E- 

01 

H38 

ath 

.vsriose 

00 

<139 

AMS 

• *i76H‘UE 

00 

RHO 

PDF 

.500Q00E” 

'01 

RHl 

POU 

•R75740E 

00 

HH2 

AM2 

• lOQQOOE 

OR 

RH3 

ASK 

.OOOOOOE 

00 

RH9 

NAO 

•OOOOOOE 

00 


KO 

« IOOOOOe 

01 

<*<i6 

CAA 

•20160QE 

OS 

HH7 

SRM 

.OOOOOOE 

00 

HHQ 

VINT 

.H2AQ57E 

01 


vus 

•OOOOOOE 

00 

soo 



subroutine teRg 

C*«« GE CARDIOVASCULAR LBNP MODEL 10/23/73 
C0MM0N/STATE/XI50) iXDOTlSO) 

2/STATE/QRAtQRV*QLAtQLV »QPA»QPC»QPV tQAA»QARC.QLAA»QUTAiOLlA»QUABA» 
3QLABA,QCILL,QLQSA,QLGAR,QL6 CAP,QLGVE,QLGSViQFEV ,QABVCfQTHVC,(jSPVC, 
‘4«L0 c»QUPC.QHCAP»QhSViQJV»QC0R,QCSmA»Q1MAiQCSMV#QP0V,QIHV, 

5«RenA.QRALE»(SRENV,QReT»QdU0) iQSKB 

6/STaTE/CRA»CRV .CLA ,CLV»CPA »CPC ,CPV,CAA»CARC ,CLAA»CUTA»CLTAiCUABA t 
7CLABA,CCILL,CLGSA,CLGAR.CLGVE,CLGSV,CFEV,CAbVC»CTHVC iCSPVCi 
8cL0c»CUPc»CHSV iCJVtCCSMV »cIMV#CPOV» 

9CREnA,CRENV.CDU8) 

A/STaTE/PRA,PRV,PLA,PLV ,PPA ,PPC,PPV ,PAA,PARC.PLAA,PUTA,PLTA,PUABA» 
BPLABA.PClLL,PLGSA,PLGARtPLGVE»PLGSV ,PFEV ,PA bVC ,PTHVC ,PSPVC » 
CPLOCiPUPCiPHSV»PUV,PCSMV»PlMV»PPOV# 

DPRENA»PRENV»PDt 161 ,PM»PMC 
COMMON/STATE/ 

ERRA,RRV,RMV , R aV, RP A.PPC » *^PV»R arc tRLAA.RO"^ a iRLTA.ru aba » 
FRLABA»RCILL,RL6SA»RLQAR|RL6CAP»RL6VE»RLGSV»RFEV,RaBVC» 
GRTHVCiRSPVC.RLOC,RUpCtRHCAP»RHSViRJV»RCOR,RCSMA»RIMA,RCSMV» 
HRPOV»RlMViRRENA»RRALE»RREFF»RRENViRDCn ) iRS^B 

i/state/flpa,flaa,flarc ,fllaa,fluta,fllta , flu aba , 
JFLLaBA,FLCILL,FLCSMA*FLIHA»FLRENA,FL0M(8) 

K/STaTE/V(5Q) tVUIBO) , PQ < 3HI » PEXT 1 32 > . E ( *» ) 

• ,PRN,ABIAS,TBI,AS,TTHAZ,TM00EL»SPACE,bSL6,EC8V,PTIS,PGBIAS 
L.ZIRO) ,WK(20) ,HR,SV,C0*RT»PEX»W,PSYS,P0YS,FR,EQ 
M»V02D0T»AVDiPlABiPlTHtPHP»THETAt>SF 

N.TTOT.T AS, TVS,C I ,C2.6NEW iPEXIN.tr 

♦ .DUMMY U3 ) ,T »0PRT»VLEG 
C0MmON/T0SHoR/6UYInI20» .0UTGUYI2O) 

CALL XJO 

V (*i9)«l000#^GUYINn ) 

DVO>1QOO*«GUY IN(Z) 

VUTOT»VU< 18)+VUU9I+VU<20I 
8VSN«VUTOT+OVO 

dpct*bvsn/vutoT 
vut 18 >»DPCT»VU( 18 ) 

VU(l9)«DPCT^VUn9) 

VU<20)»DPCT*VUt20) 

BSLG»S062.-V(m9) 
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LISTING OF whole BODY ALGORITHM 


C 

C 


C 

c 


theta-0. 
GO TO I 


COMMON/R/XDS.XMH.CXT 
C0MM0N/STATE/X(597) .T 

C0MM0N/TRINT/TRIN< JO)»TROuT(IO)»TRTIME 
TMXER-T/60. 

9 iFIcXT.LT.TMXERJCALL GRODiN 
IF(CXT.LT,TMXER)G0 to 9 
10 IFITRTIME.LT.TMXER) call therm 
1 FITRTimE.lt. TMXER) go to io 

return 

^eno 

^SUBROUTINE CVS 

6E cardiovascular LBNP MODEL 

controlled system 

COMMON/RINTR/RINUO) iROUTI io) 

COMMON/TRiNT/TRinITO) .trout (10) .TrTjmE 
COMMON/ST ATE/XI 50 ),,XD0T( SO) 

2/STATE/QRAiQRV.0LA»QLV.QPA.QPC»«PV.GAA.0ARC,QLAA»QUTA»QLTA»QUABA» 
3QLABA,QClLL.QLGSA,(3LGAR»QLaCAP»QL6VE,QLGSV»QFEV.QABVC»OT.HVC,(3SPVC» 
MQL0C,QUPC,QHCAP|QHSV,QJV »QCOR»QCShA,Q1MA»QCSMV»QPOV,QIMV, 
BQRENAiQRALEiQRENV iQRET.QPI 10) iQSKB 

6/STATE/CRA.CRV»CLA.CLViCPA»CpCfCpViCAA»CARC,CLAA»CUTA»CLTA»CUABA. 

7CLABA,CCILL,CLGSA,CLGAR,CLGVE,CLQSV,CFEV,CAbVC,CTHVC,CSPVC» 

eCLOC*CUPC|CHSVtCJV*CCSMV»ClMV»CPOV> 

9cRENAiCPENV»CDn8) 

A/STaTE/PRA.PRV»PLA.PLViPPAiPPC»PPViPAAiPARC,PLAA»PUTAiPLTAiPUABA» 

BPLABA»PClLL»PLGSA.PLGAR.PLGVEiPL6SV,PFEVtPABVC»PTHVC»PSPVC» 

CPlOC.PUPC,PhSV.PjV,PCSMV»PIMV»PPOV» 

DPRENA,PRENV,PD( U) .PM.PMC 
COMMON/STATE/ 

ERRA.RRV .RhV .RaV jRPA.RPC .R pV .RARC.RLAA.RUTA.RLTA.RUABAf 
• FRLABA.RCILL .RLGSA ,RLGAR»RLGCAP .RL6VE .RLGSV.RFEV ,RABVC » 

GRTHVC.RSPVC.RLOC.RUPC.RHCaP.RHSViRJV.RCOR.RCSMA-jRIMA.RCSMV. 

HRPOV ,RiMV,RReNA»RRALE»RREFF»RReNV ,Rd( 1 I ) iRSkB 

I/STaTE/FLPA»FLAA»FLARC»FLLAA»FLUTA»FLLTA.FLUABAj 

JFLLABA»FLCILL»FLCSMA»FLIMA»FLRENA,FLDM(8) 

K/STaT£/V(50) ,VU(50) ,Pq(3H) .PEXT132) »E(H) 

*iPRN. A8 IAS, TB IAS, TTHAZ.TMOOEL. space, BSLG.ECbV ,PTIS,PqBIAS 

L. ZUO) ,WK(20) .HR.SV.COfRT.PEXiW.PSYS.PDYS.FREQ 

M. V02D0T.AVD»PiAB,PITH,PMP.ThETA,Sf 

N. TToT.TAS.TVS.CI ,C2,GNEW, pexin.tr 
*,DUMMY(13) ,T,0PRT,VLEG 

DIMENSION PRS( i ) ,CMPt32) ,r 50(S0) ,FlNRn2) 

equivalence (PRS.PRA) ,(CMP« 1 ) ,CRA) , (R50( I ) ,RRA ) , (F I NR ( I ) ,FLPA ) • 
b , 1P0(3) »TT) , (POlH) ,TSVE» . <PD<5 ) ,TRSP) , (Pd<6> *TMP> 
b . <PD(7) ,TPS) t (P0(8) ,P2) 

T IS ELAPSED TIME 

TT IS A CLOCK FOR ONE BEAT 


CALL cONTRL 
CALL CVS 
I call ALGO(T) 

IF (T.GT.TTHAZ) 
IF (T.LT,WK(20) ) 
CALL EXEC 
RETURN 
£ND 

subroutine exec 


TT-T-TSVE 



Listing of whole body algorithm 

jF iTT«*TTOT) 1002,1001 »100I 
1001 TSVE-T 

C e *« * 

OPMd» 1700*+H60Q./3** tV0200T-f5) 

OPEr-OPMO-^PDI 10) 

1F(DPER,LT.-&0*)PD1 I 1 )®PD( 1 l)-*001 
1F(DPER«6T*50* )PD( 1 I )«PDU 1 ) *000 1 
lF(V02DOT»LTt.5)poU 1 )“0» 

C0»XU3)/TT0T*«06 

X ( 33) -OtO 

PM“XU0)/TT0T 

X( I0):*0f0 

PMC«XU3)/TT0T 

X( 13)*0*0 

PDU )-X«3H)/TT0T 

X(3<))«OfO 

SV“TT0T/6O.*CO 

RT“PD ( I ) /CO 

DIFF — V<50)*V{‘i9) 

XUS)«X( 18)+DlFF*0*6 

XI l9)*X( 19)*DIFF#0,4 

PSYS-SVS 

P0YS«DYS 

CALL XIO 

PD( I 0 )» 0 f 

1 10 CALL CONTRL 
TEMP»TEMP+0*2 

IF (Temp-t) .1 10, i 1 1 , n 1 

111 CONTINUE 
CALL EXEC 
5YS-Q.0 
DYS>1000* 

TT0T«60./HR 
TaS» 0, lO+Of 09*TT0T 
TVS*0, U’t-0,20«TT0T 

IF (T#lT»61* *0R* T»QT»63*) GO TO 20 
DO 10 1*1,32 

10 PGl 1 )-SlN(THETA/S7#2958)*Zi 1 )*l *05*980./1332* 
T ILT»THETA 
20 CONTINUE 

IF (TMOD£L«GT,0«) GO TO 28 
DO 2S l«l I i 8 ,2 
IF (WK(l)oLT*0*) GO TO 30 
IF (T.GT,WKtU) PLBNP—WKl Ul ) 

25 continue 
60 TO 30 

26 IF (ABSITHETA ) .GT* 1 .E-5) TlLTD«l, 

IF I ABS(ThETa) » 6T, 1 ,E*5) GO TO 30 
IF tTlLT0,GT#2t) GO TO 30 

DO 28 I>1,32 
28 PG(l)«0* 

TILTO-3. 

30 CONTINUE 
VLEG-O, 

DO 201 I>15,2Q 
VLEG<»VLEG-*>V ( 1 ) 

201 IF (TM0DELtLT*l»5) PEXT ( I ) ■•PLBNP 



LISTING OF whole BODY ALGORITHM 


VLEG^VLeG-VUI ia)-VUU9)*VU<20> 

IF(T«GT»WkU) •0R*8Sl 6*LT» I 060 TO 30l 
IP(PG8IAS.LT«2* IPGBI AS«2t 
DVL-8B<<*<-VLEG->BSLG 
IF(OVl»LT*» 120* )PGBlAS«PGBlAS+*2 
IFIDVL.GT.S, )PSBlAS«PGBIAS-.l 

lF(DVL*6T.-l20«*AND*0VLfLT*-5 . IPGbIAS-PGBI AS+«05 

301 CONTINUE 
TEMPV*0« 

00 U l«lt32 
16 TEMPV-TEMPV + VU( I I 

ECBV»VIbO)»VLE6*TEMPV+VU( 18>+VU( I9»+VU(20» 

& ♦VunS)+VUU6)+VUU7> 

1002 CONTINUE 

IF(TT^TAS) I »2,2 

1 SaS»SIN( 3. m6»TT/TAS) 

EU )«0*05+0.05*SAS»SF 
E<3)»0t I24.Q, U*SAS»SF 
RSPVC*(20* + SaS***0# )/ 1332* 

RTHvC«( I0*+SAS*20* 1/1332* 

60 TO 3 

2 EU)sO«OS 
E<31»0* 12 
RSPVCatOI B0I5 
RTHVC**007507S 

3 tV^TT-0*! 

IF(TV*i.T*0.0)TV*0*0 

IF(TV^TVS)4*5,5 

H SVS«SIN(3» 1<U6«TV/TVS) 

E(2)«0*0175+.39*Sf*SVS 
E< h) “0*02*1 *50*SF*S VS 
GO TO 6 

5 E(2>“0*0175 
E(H)k0*02 

6 CONTINUE 

00 II ialiH 
ii c«Pn)*i*/E<n 

IFU(H) .lT*0*0)X{<U«0*0 
C COMPUTE volumes 

V1S0)«0*0 
DO S5 I»i,32 

vu )“vu< n+xu ) 

SB V(BO)«V(BO)*V(n 

V(50)»V(50)"V(9)-V( 1 I l-Vil^i’-Vt l0)*»VUUa>-*VuU9>-VU«20) 

IF I THETA*6T*HB*AN0#T*GT*60* 1 PITH“»2*5 
C RESPIRATORY PUMPS 

IF (PEX*EQ*0*01 GO TO IlS 
IF(T*lE#60*0 .or* ThETA*LT*HS.)GO To 115 
TRSP“TRSP*T">TPS 
IF(TRSP*GT*TR)TRSP«0*0 
T I“TRSP/TR 

p jTH“*2*67"19*70‘»*T I*S6*H09*TI**2-53.H79*tI**3*I6*602*T !••** 
DEPTH* ( V0200T*! .)/2. 

IF i depth, lt. 0 ♦ >oepth»o* 

IF(0EPTh.GT.1.5)0EPTH“1*5 

pith*pith-oepth 

PIAB“-PITH/2. 



LISTING OF whole BODY ALGORITHM 

US CONTINUE 

DO 71 l«I 1 12 

71 PEXTm*PlTH 
PEXT122)'»PITH 
PEXT(23}»PlTH 
DO 72 I«28 i32 

72 PEXT<I)«PIAB 
PEXTUMl-PlAB 
PEXTI 21 )»PI AB 

C MUSCLE PUMP 

lF(TM0DEL»LT.2U<a0 TO MS 

TMPnTMP + T-»TPS 

TPS-T 

IF (TMP*6E»lt) TMP*0* 

SMP»SINt2.*3. IMU»TMP) 

PMP«MOc*SMP 

IFlTHETAtLT* IS* )pMp»10t*SMP 
IF ISMP^LT.O*) PMP*0# 

IF (PEX#LT*lt) PMP«0» 

DO MM I-U.19 
MM PEXT$U»PHP 
MS CONTINUE 

C COMPUTE pressures 

PI»P2 
P2»PLV 
DO 12 1«1|7 

12 PRS(I)»X(I)/CMPm+PEXT(I) 

DPDT«{PLV-»PU/(2**.002) 
lFlDPDT*ST»POnOUPD( iO)*OPOT 
DO 13 1«ISU7 

13 PRS( I )«XU )/CMPU »*PEXTU) 

DO IS l«*ia»20 

PRS{ I )*XU )/VU( IU2*+PEXTtn+PTIS + PGBlAS-2* 

IS IF(X(U*GT*VU(inPRS(I)» 

6- (X( i I-VUl I > )/CMP( I )*PEXTli UPTIS+PGBIAS 

DO IM !»2M|32 

IM PRS(U»Xn )/CMPm+PEXTUl 
PAA«X(8)/CAA*PiTh 
PUTA*X(29I/CUTA*P1TH 
PLTA*XU2)/CLTA+PITH 
IFlpUTA*GT*SYSlSYS*pUTA 
IF(PUTA,LT«0YS)0YS«PUTA 

PLABA"PIAB-1 1 •826+0«002265*VUMUo*009773M*VU‘iI*VUM) 
PLABA«X( IM)/ClABA+pIAB 
€»•«• abdominal vena CAVA 

PABVC—5*M996+0»082M08*Vl2U-0.00033598*Vl2i UV(2i ) 

• 4>0 * 000000MS028« Vl2n*V<2l)«Vl2U 

IF (X(21)tGT*200< •and* X ( 2 U • LT * 3Sq . ) 

, PABVC«,3M/lSOt*(Xl2U*200*»>»'UlS 

THORACIC vena CAVa 

PTHVC—5.5006+0* U SM* V ( 22 > -0*0008SB73* V < 22 » * V ( 22) 
•♦0*000001236«Vt22) •V(22)*vi22) 

IF (X(22)tGT*I&0* *AnO* X(22) •LT*2&0. > 

• PTHVC»,3/IQ0. • (X(22)-I50, ) ♦ 1,1A 
P5PVC--3*M999+O*92MQ9*XI23)-0»0M22M6*X(23)*xI23) 

,4>0*00083M3S*X<23)«X(23)«X(23) 

PTHVC*PTHVC+PEXT<22»*TBIAS 



81 + 


LISTING OF whole BODY ALGORITHM 

PABVCaPABVC4-P£XT(2n<»-ABI AS 
PSPVC*PSPVC*PEAT(23) 

(JRA«tPRA-PRV)/RRA 
C HEART model 

IF(PRAfLT,PRV)(jRA-0,0 
(JRVaX (09 ) /FLPA 
IF{QRV*LT«0*0)QRV-0«0. 

XdOT(OV) -prv-ppa-rrv^qrv 

IF(XD0T(09) •lT»0»0«AND*QRV*EQ»0*0}XD0T(09)>0*0 

QLA»(PLA*PLV)/RMV 

IF(PLA*LT«PLV )qLAa0.,0 

9LV»X( 1 1 »/FLAA 

IF(QLV»LTf 0*Q)QLV«Q*0 

XDOTi I U«PLV-PAA+PG(8>^RAV*QLV 

IF(XDOT(n)*LT*0»0«AND*QLV*EQ*0*0)XDoT(Il)’*0*0 
C PULMONARY CIRCULATION 

opa-ippa-ppci/rpa 

QPC»(PPC-PPV)/RPC 

0PV«(PPV-PLA)/RPV 

c arterial model 

5IAA«{PAA-PUTA+PGI 12) )/RUTA 
QUTA*(PUTA-PlTA+PG( 131 )/RlTA 
QLTa»(PLTAwPLABA + PGUh) )/RLABA 
8LABA»(PLABA-PCILL*PQ( IS) )/RClLL 

c legs 

QClLL»IPClLL+PGn6)-PL6SA)/RL6SA 

QLGSA»(PLGSA-PL6AR)/RLGAR 

QLGCAP*(Pl6AR-Pl6VE)/RLGCAP 

rlgve-.os 

IF(QLGVE*LT*0*0)RL6VE»67. 567567 

qlgve«(plgve-pl&sv)/rlgve 

RL6SV«»05 

IF (QLGSV*LT *0*0)RLGSV ■67* 567567 
QlGSV«(PlGSV-PGU9)-pFEV)/Rl6SV 
C VENOUS MODEL 

RFEV<»t02I 

IfIQfeV*LT»0*0)RfeV*67«567567 
QFEV*(PFEV-PG(20)-PABVC)/RFEV 
QABVC*(PABVC-PS(2I ),,PTHVC)/RABVC 
QTHVC«(PTHVC-PG(22)»PRA)/RTHVC 
QSPVC«(PSPVC-PG(23)»PRA)/RSPVC 
C HEAD^ARMS 

QLOC» (PAA*PG (2‘J )«PL0C )/RLOC 

UUPC«(PL0C«*PUPC)/RUPC 

QBRAIN-R1N(3)*IOOO*/60« 

QARM-17.25 

qhcap*qbra in^qArm 

C QHCAP*(PUPC»PHSV)/RHCAP 

QHSV«(PHSV-PJV)/RHSV 
RJV>«00*(30I 

IF(QJV*LT*0«0)RUV«67*567567 
QJV-(PJVwP6( 27>*PSPVC)/RdV 
C CORONARY CIRCULATION 

QC0R»(PAA«PRA)/RC0R 

c continuity for Venous return 

qret*qspvc+qthvc*qcor 

c hepatic-splanchnic circulation 
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QCSmA»{PlTA-PCSmV I/RCSMA 
QCSmV«I PCSMV-PPOV ) /RCSMV 
QPOV* (PPOV-PTHVC) /RPOV 
C RENAL circulation 

QRENA»IPLABA-PRENA) /RRENA 
URAlE* (PRENA-PRENV ) / IRRALE4.RREFF ) 

QRENV»(PReNV-PAbVc)/RRENV 
C SKELT0N»B0NE MARROW, and OTHER 

QSKB*(PLABA-PABVC»/RSKB 
QSKlN-TRlNt U*«1327 

C STATE variable OERiVATiVES 

XOOTI n»QRET-QRA 
X00T(2)»QRA"QRV 
XDOTU)»QPV-QlA 
X00T<R)»QLA*.QLV 
XD0T(5}»QRV*'QPA 
XD0T(6I»QPA-QPC 
XDOTI 7l»0PC-QPV 
XD0T<8)»QLV-QAA-»QCOR-QL0C 
XOOTI lOI-PAA 

XOOT( l 2 J"QUTA-.QLTA-»(aCSHA 

XOOTI I‘n«qLTA-QLABA-sGRENA*»<35KB<-Q5KlN 

XD0Tn5)»QLA8A*^QClLL 

XOOT< I6)»QCILL-QLGSA 

X00T(17)*QL6SA-QLGCAP 

XOOTI 16)*QL6CAP*QLQVE 

XDOT U9)»QLGVE*QLQSV 

XOOTI 20 )»QLQSV-QFEV 

XOOTI 21 )«QFEV*^QABVC + QREnV«QSKB + QSkIN 

X00TIZ2 )»QABVC+QP0V»QTHVC 

X00TI23)»QJV!»QSPVC 

X00T12H)»QL0C-QUPC 

X00T<25)*QUPC-QHCAP 

XD0TI26 1*QHCAP-QHSV 

X00TI27)»QHSV-QJV 

XD0Tl28)»QCSMA-QCSMV 

XD0TI291 -QAA-QUTA 

XdoT ( 30)»qCSmV-QPoV 

XOOT<31>*QRENA-QRALE 

XDOT (32)*QRALE*'QRENV 

XD0T(33)-QlV 

XOOTI 13)*PL0C 

XD0Tl3*n»PUTA 

Return 

^ SUBROUTIlslE CONTRL 

COMMON/STATE/X150i,XOOT(SO) 

2/STATE/QRA»QRV»QLAfQi.V»QPAiQpC,QpV»qAAiQARC,QL*A»0UTA*QLTA»QUABA» 

3QLABA,QCILL,QLSSA,QL6ARiOLGCAP,QLGVE,QLQSViQFEV,QABVCiQTHVC,QSPVC, 

*IQLOC»QUPC,QHCAP»iaHSV,QJV,QCOR,QCSMA,QlMAtQCSMV,*QPOV,QIMV, 

SQReNA iQRALEiORENV ,QReT »Qo( lO) »QSKB 

6/STATE/CRA»CRV»CLA»CLV»CPA»CPCiCPViCAAfCARC,CLAAiCUTA»CLTA»CUABA» 
7CLABA,CC1LLiCL6SA»CL6AR»CL0vE,CLGSV,CFEV»CAbVC9CTHVC,CSPVC» 
8CL0ctCUPC»CHSV»CJV ,cCSMV»ClMV,CPOV t 
9CRENA,CRENV,C0i 18) 

A/STATE/PRA.PRV»PLA.PLV,PPA»PPC,PPVtPAA*PARC,PLAA»PUTA*PLTA»PUABA» 

BPLA8A,PCILLiPLGSA»PLGAR»PLGVE»PLGSV,PFEV#PABVC»PTHVC,PSPVCi 
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CPLOC ,PUPC .PHSV.PJV .PCSMV ,PiMV,PPOV , 

DPREnA.PRENV ,PDU6) , PM, PMC 
common/staTe/ 

ERRA,RRV,RMV ,RAV,RPA,RPC,RpV,RARC,RLAA,RUTAtRUTA 
FRLABA ,RClLL»RL6SA,RL6AR,RLGCAP,RL6VE,RtGSV»RFEV 
GRThVCiRSPVC ,RLOC.RU pC,RHCAPiRHSV iRJV.RCORiRcSMA 

hrpov,rimv,rrena,rrale.rreff ,RRENV ,RD(1 I > iRSkB 

I/STaT£/FLPAiFLAA»FLaRC»FLLAa»FLUTa»FLLTA»FLuABA 
JFLLABA,FUCiLLiFLCSMA,FLIHAiFLReNA,FLDM(8) 

K/STaTE/V( 50) t VU(-&0) »PGJ »PEXT( 32) ,E( 

• iPRNtABlAStTBl AS,TTHAZ,TM0DEL»SPACE,8SLG,ECBV,PTIS,PGBI AS 
LtZUO) ,Wk( 20) ,HR»SV,CO,RT,PEX,iN,PSYS,PDYS,FRE<5 
M-,V0200T,AVD,PIAB,P| th,pmp,theta,sf 
N,TTOT,TAS,TVS,CI ,C2,GNEW,PEXJN,TR 
• I DUMMY (13) »T,oPRT,VlE6 

cc cvs-resp* interface 

C BLOCK DATA FOR INTERFACE IN 6 OUT 

COMMON/R1NTR/RIN4 10} ,R0UT ( lO) 

COMMON/ TR I NT/TRiN( 10) , TROUT UO) iTRTimE 
C0MM0N/T0SH0R/GUVIN(20) ,0UTGUY(20) 

C INPUT FROM GUYTON MODEL 

QD( I )«2*23I3»0t0S833*2t • l09/I9tSI 1 *guY I N ( 3 ) « 1000» /60, 
(aD(2)*2.6752-0«06613*25*332/‘(9,807«GUYlN(H)*l000*/60. 

OD ( 3)«I .a9S6o0t069Z3« 12*939/36t31«GUYlN ( S) *l000,/60» 
Q0(M)«GUYlN(8)/IS<40t/B6. 

C INPUT FROM RESP* 

V02D0T»RIN( I ) 

FREQ*RIN(2) 

QBRA IN*R 1N< 3)* l000»/60« 

PC02*RIN(<}) 

P02-RINI5) 

DPC02«PC02«»38, 

DP02»P02"107*9H82 
IF (P02#GT«80* )DP02«0* 

IF (PC02«LTt30«.)DPC02»*B« 

C OUTPUT TO RESP’, 

ROUTU I»C0 
R0UT(3)»Re5T02 

c Input from t/r 

C ttSKIN»TRlNU ) •♦ 1327 

0CT>TR1N(2) 

C OUTPUT TO T/R 

TR0UT( I )*QFEV+17*27 
TR0UT(2>»QBRAIN 
TR0UT(3}»C0 
TROUT(R)*V0200T 
TROUT (5)»QC0R*QP0V*QR£NV 
C CVS MODEL 

real NUM9Di,NUH9D 
EQUl V aEENcE 

2 (AccMeT,X(RI ) ) , (XNN,X(<(3) ) » ( DA ,X { ) i ( DL tX ( ^5 ) ) t 
3(XN3»X(*(9) ) t(PD(2) iFLAQ) »(P0I9) ,DTS) ,(PD( l2) lOMS) 

COMMON/DELAYC/ AVDTS(BO) #V02TS(50) tSAVE( I0),FK1S)»F2(15),F3(15) 
& ,FR( 15} ,F5(45) ,F6( 15) , ANF » TON t F NS ,REST02 , AUNC t AU nS , AUnSH 
IFIT«GT« lfO)GO TO HOO 
DO ROl I«l»I5 
<(0I F6(i)«U0 


,ruaba» 

,RABVC, 

,rima,rcsmv» 
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8 t 


DO H 02 I»l»‘iS 
*»02 F 5 (I )«.*»05 
HOO CONTINUE 

c Save old xpok^h-h?) 

DO 10 I«H0,H9 
10 SAVE! I- 39 l*XD 0 Tn ) 

C W« WORK RATE KQ-M/MIN 

DO 25 I«l I I7t2 
IFlT-WKin) 26»25»25 

25 WoWK( !♦! ) 

26 |F(WI 27 t 27*28 

27 PEX» 0.0 
60 TO 29 

26 PEX« 1*0 
29 CONTINUE 

IFUme) tLEtOtlGO TO 501 
D 02 »SQRT( 0 * 16855 »( X I‘ia)> 3 * 726 ) •* 2 - 2 * 3 *U 
C OXYGEN requirement FUNCTION V 02 WDT 

501 IF (X( 98 ) ,LE« 0 , 0 )D 02 !^ 0.0 
V 02 WDT«* 00 Oae 5 Oai 5 «W /«25 
PSW«-" 1 ^* 5 +do 2 
DTl«D 0'2 

DT 2 »I 2 t*D 02 -l. 275 )/I .15 
DT 3 «DA+DL 

0T1N«SWIN(PSW,DT I |DT2l 

DT-FCNSWIPEX,OT 3 ,DT 3 *OT 1 NJ 

C ALACTIC oxygen DEBT DA 

DAIH«. 15 *(DT- 1 . 51 + 1,5 
DAI«SWIN(PSW. 002 ,DAIH) 

DA 0 -FCNSW(PEX, 0 . 0 , 0 . 0 ,DAU 
T 8 «FCNSW(PEX, 0 . 0 , 300 * . 2 . » 

XDOTt^ai-IDAO-DAi/Ta 

C LACTIC oxygen DEBT DL 

0 UH*.e 5 +(DT-l . 5 ) 

DLl»SWlN(PSW.O.OtOLlHl 

dlo*fcnsw(pex,o.o,o.o»duI ) 

T 7 *FCNSW(PEX» 0 * 0 , 300 . » 10 ») 

XD 0 T( 95 )»(DL 0 -DL)/T 8 

c ARTERIAl-VENOOS oxygen difference AVD 

NUM?D 1 «. 038 »D 02 

CAtL DELaY( 0 . 0 , 05 ,NUM 9 DI ,aVdTS,NUM 90 . 1 > 

AVd»V 02 D 0 T/C 0 

XOOTI ‘♦ 6 >*(NUM 9 D-*X( H 6 M / 5 * 

1 F(PEX.EQ* 0 * 0 )FLAG« 0*0 
IFIFLAG.EQ. I * 0 IGQ TO 60 
IF(P£X) 60 , 60 , 6 l 
61 ANF-I.O 
TDN»T+ 20 , 

FLAG» 1.0 

60 IF(T. 6 T,TDN»ANF« 0,0 

TaN«FCNSW(aNF , 3 . , 36 , , 3 . > 

X 00 T(‘t 9 )«i I I . 00 *AnF*Xn 3 )/TAn 
X 00 T(H 3 >»( 5 . 5 *PEX-XNm/ 6 . 

DMMx« 2*0 

0H"002*25./22. 

IF«P£X. 6 T, 0 . 0 )DTS»DT 

IF(PEX.GT. 0 . 0 JDM 5 «DH 
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JF(P£X,LT,i * ) oM«OHS/dTS»oT 
ChEmON“ 002/0*8 
IFICHEMON.GT.O»5)CHEHON»0*5 
FN»2**XN4+XN3 
iF(FN*GTt 1 I t )FN»1 I t 
IF(PEX,6T,0. )FNS*FN 
IF(PEX*LT.1 • )FN»FNS/DTS*DT 
SUh<* 0 t 

DO ‘♦H I»1 » IH 
F*»m-F‘»( I + U 
SUMpF'H 1 >+SUM 
F'ti 15»*PMC 
PMCF«(5UM+PMC)/I&. 

IF(TfLT.WK(3) f0R.TM0DEL.LTt2t J 

5 AUNS»i<a8.5-PHCF)*«03+l*)»|* 

1F(T.LT*WK(3» .OR,TMODEL.LT»2*) 

2 AUNSH«( <87* lS*PMCF)«tOS5+I • 1*1 * 

IF(T*LT»WK(3)*OR*TMoOEL*Ut*2«) 

% AUnC«1 »*{0,03HH8*DPC02-0,010'*DP021 
IF I aONC*LT« 1 *0) aonc«i *0 
SUM»0. 

DO I«l . 18 
F6( I >*F«U + n 
98 SUM»F6U)*SUM 
F6U5)"AUnC 
AUNC«(SUM>AUNC)/l5* 

IF (T*LT* 10« } AUNS*l «08 
IF( T*LT» 10* ) AUNSH»l *08 
IFd.LT. 10. )AUNC-Uq 
IFIT.LT. 10. )DP02bO» 

controlled resistances 

LEGS 

RMCT«1B0.<«ACCMET*50. 

If * RMeT.lt. 1 5. )RMeT»1B. 

RDMb 850»"8SO.*DH/ DMHA 
IFtROM.LT. i5»)RDM«15. 

RLGCAPB(RMET+RDM)/J332./UI .+3.5*(AUNC-1* I )-.03*DP02) 
Rlgarm»Rmet+rom 

RLGARN»-FN*5800./1 1 « 

RLGaR«CRLGaRM*RLGaRN* 5800. 1/1332. /I 1 1 . *3 • 5* ( AUNc** 1 • 1 )-.03*DP02) 
RLGARbRL6AR*Q0(3} 

C OTHER BRANCHES 

RHCAP.3570./1332. 

RC0R»1 20500. -9395.*dM/0HMX 1/1332. 

RSkB»(S 580.*AUNS*(1 .♦(AUNC-l. n*6000.*DL''AUNS*I l* + ( AUNC-l. ) )>/ 

^ 1332. 

RRALE«(3600.*AUNS*( 1 ,♦ C AUnC- I . )) ♦ 1 600 . *DL/AUNS* ( I < AUNC.i| ♦ ) ») / 
8 1332. 

RRALE»RRALE*OdU ) 

RDMR*DM/0HHX 
IFIROMR.QT. I.IROMR-J. 

RCSMA«<2600.*aUNS*AUNS*1070./AUNS/AUNS*IFn/ 1 I */2*+RDMR/2t) )/ 

6 1332. 

RCSMA«RCSMA*QDI2) 

SUMbO. 

DO 92 IB1,1H 
FI ( I )«Fl U*1 > 
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92 SUM«F I i 1 )*SUM 
FI uai«»co 
COT«(SUM+CO)/ 15* 

IF(C0T*GT«2&* )C0Tb2&* 

RPA«#0I75**#0075/21 . • COT 
RPC*t0595"»0295/2l * ♦ COT 
RPV-RPA 

RREFFoO. 

IF( AUNC.LT.i .03,AND,T.LE*TTHAZ*IO. )GO TO 7 O 
SFU«( AUNSH»*08)*»H05+I t5*CAUNC-l ♦ )+.0055 «DPo2 
SUM°0« 

DO 93 

F&n )*F5( I + U 

93 SUH-F5U I+SUM 
F5(H5I*SFU 
SF»(SUM^SF.U)/ii&* 

60 TO 71 

70 SF*(aUNSH-«08)**^05+1 •5*(aONC'^ 1* J + tO055*0PO2 

71 IF(Ttt.T*WKtO> *OR#TMODEL«LT*2» ) GO To 810 
SF*#67*,374«(X(H0»-,9) 

IFiSF.GT* I t 135)SF»1 . l3S*.86*(xmO)«2. 193) 
XD0Ti90)*(V02DOT'*X(9O) )/T7 
IF(SF.LT.0#67)SF«.67 
lF(SF.eT.3. )SF»3* 

IF (PEX.uT*!* tANOt THETA.LT*'*^* ) SF»*‘*6 
IMTHETA.GT* I 5 1 • AND . T *LT » 6® • ) SF» . 9 8 
SF-SF+PDU I ) 

610 CONTINUE 

C pressure reference FUNCTION PR 

IF(PEX*GT.Ot )Q0(9)aO« 

PRN*AUNS*50*+CI*Do2^C2*ACCMET+2*( AUnC-1 • > •58»+«5*DCT*58* 

2 +26»6«PEX«C0SlTHETA/57*29&8)+<ab{ 9 )* 58 #*AUNs 
EN*»PRN-PH/2.-PMC/2*>XN3 + 3,*XN9+FN/2*-.S5*PExT( is) 

SUM»0* 

00 91 I»1 1 1 9 
F2< I >»F2i l+I ) 

91 SUH»F2U )oSUH 
F2US)*EN 
ER“tSUH+EN)/ISf 
ODP««S33"«OOB*ER 

IF(00PtLT«O.O)DOP>O,O 

TOT«*0.300+ODP 

HR"60»/T0T 

C CONTROLLED COMPLIANCES 

ERC»(PRN-PMC)*#7 
5UM»0. 

DO 90 I»i.l9 
F3U)*F3{I + l) 

90 SUMpF3U)+SgM 
f 3US)*ERC 
£RC»(SUM+ERC)/lBt 
IF(ERC*LT*0#0)SO TO 7 
IF(eRC*gT*80. )ERC«80* 

CLGvE» 3«9B8*( 1 tO-tOOeS^ERC) 

CLGsV**3* 19 35* U «0-*0083«ErC ) 

7 continue 


c 


respiration 
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REST02«*3 13 

IF ITHETA.GT* I5. «AnD. T*GT*60*) rEST02»»37 
C FR£Q>V02D0T«8«2^fB«2a 

IF(FRe0*GT*3O. )FREQ»30« 

TR*»60*/FREQ 

XDOTtHl )'«(V0200T»0«3a>*«‘</300. 

IF(PEX,EQ.0.0)XD0T (<m»"'l./300t 
IFI ACCMET«LE»0t.0*AND«PEX*EQ.0*0)XD0T (HU-O^O 
C OXYGEN deficit FUNCTION 002 

CALL DELAY(0«0*S>V02DOTtV02TS»V02DO,i ) 
XOOT(H8 )*<«Vo2DO*PEX*Vo2WOT+0*33)/60. 
IF(002,LE*0,0*AND.PEX*EQ*0«0)XDOT(H8)*0*0 
DO 31 

31 X(I >»X( I )*0* I»<XDoni )+SAvEU-39)) 

RETURN 

m end 

^ SUBROUTINE XlO 

COMMON/STaTE/XUOO) 

COMMON/XIOD/N<27) ,nWI27) .iNIT»A{9,6) , rT » EXC , XnC ( 3 ) iXr0{3) ,NPASS, 
GIONE 

COMMON /TRM/XTRA(223 ) 

COMMON/TRINT/TRINI 10) »TROUT (10) ,TRTIME 
COMMON/TAPE/ToTAL* IB 
C0MM0N/Z/XRARA( 1263) 
dimension XIOPUB) ,XNUM(27) 
data KY»NWTL''IHYi6H tilt/ 

DATA lBLK/» »/ 

T»X(B98) 

IF unit*gt*o) go To 200 

INIT»I 

WRITE(6»5) 

5 foRmat(///5Xi short teRm expErIment Simulation **•**/// 

enter experiment code; lbnp-i.. TILT»2*» TERG»3*» THERMAL»4»»* »/ 
& 22X.» RESPIRAT0RY»5*» ) 

HHZ read (5,6) EXC 
6 FORMAT (F5*0) 

IEXC*EXC 

IFi IEXC*6E*i*AN0*IEXCtLE*5)G0 TO MRH 
WRITE(6,R‘(3) 

RH3 FORMaTC ERROR WHEN READING EXPERIMENNT CODE TRY AGAIN*) 

GO TO HM2 

HRH IF( IEXC*EQ,3)60 TO HOO 
X(5l6)t>33*0 
X(519)«33,0 
X(5R3)-60* 

XIB^RI^-a, 

X(5R5)»70. 

X(5H6) — 16* 

X(5H7)*90# 

X(5R8) — 30* 

X(Sh9)«I20. 

X( 550)^*R0* 

X(SBI }»I80* 

X(5B2)»*B0, 

X(BB3)»2^0« 

X(5BR) vOfO 
X(BBB)«300* 
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XIS60)«30I* 

X(&75)»0.0 
‘iQQ Continue 

WRIT£(6,999) 

999 FORMATUXt’THE STORED PROTOCOL ISIM 
GO TOdl .12*13tlN||S) ,I£XC 
II X{H9&)-0* 

WRITEU»99B} 

DO 1000 I»1 > IM i2 
X0UR»»(X(5H2+n-X(5H2+I-2> >^6Q* 

1000 WRlTEUi888)X(SHI<»n tXOUR 
998 F0 RmATUX,»lBnP LEVEL * »&X , * DURAT I ON* » / 1 X M MM HG)*i 
&aXt* (MIN) * ) 

888 F0RMAT(3X,F6«1 i9X|F8«3) 

ENOT«X(560)/60* 

WRlT£t6»8a7)ENDT 
887 FORMAT (3X I *ENO TlME«*»F6tl> 

9 WRITE ( 6i8) 

8 FORMAT(»ODO you wish TO change PROTOCOL? (Y/N)*J 
READ ( B,20) K 

20 FORmAT(IAI) 

IF <K*NE*KY) GO TO 80 
WRITE(6,997) 

?97 FORhATI* enter NEW PROToCqL 2F12*6 ICR WHEN COMPLETE)*! 

$/2X,*LBNP LEVEL* ,3X, 'DURATION* ,/2Xt»* (MM HG ) * ♦ 6X ! » ( M I N ) * ) 

966 XXZ*1. 

DO 990 I«l!l0 
IF(XXZ.EQtO)GO TO 990 
lNDX*5H2+(l-n*2 

996 READ(Sf995!ERR*996>X( INDX) iXXZ 
995 F0RMAT(2F12*6) 

IF( IEXC*EQt3)X( INdX)»XUNdX)* 6. 12 
IF(XXZfEQ!0)60 TO 990 
X<iNDX+l)*X( iNDX-i )+XXZ*60* 

IFUEXC*EQt3)G0 TO 965 

IF(xnNDX)*LE.O*.AN0!XXZ*6E*0f )60 To 

GO TO 96** 

965 IF(X( INDX) *QE.O*#aNd*XXZ*GE,0. )60. TO 990 
96R CONTINUE 

WRITE(6»99H> 

99H F0RMAT( *OERROR IN PROTOCOL VALUE TRY AGAIN*) 

GO TO 996 
990 CONTINUE 

X(560)»X( INDX-l )*'l • 

GO TO 60 
12 X(R95)»1« 

WRITE(6!799) 

799 FORMAT! 3X,* tilt ANGLE* , 3X ,* DURA T I ONf , ^X !» RECOVER Y * i / 3X , • ( OEG ) * * eX 
6»2( « (MIN) • ,7X) ) 

X(S75)*70. 

X(R9*()*180! 

TDT»(X(H9H)‘*60f )/60! 

ENDT»(X(560)-X(r9h>»1* )/60* 

WR1TE(6,797)X(575) ,TOT#ENoT 
797 F0RMAT(5Xi*0f *»UX!»lf*»/3X,F6tli6X*F6tl!6X,F6*l) 

write (6t8) 

READ (5,20) K 
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IF <K*Ne*KY) go to 60 
WRITE(6»796) 

796 FORMAT(» ENTER TILT ANGLE ,OURAT ION AND RECO VER Y ( 3F5 • 0 ) » i / t 
6» DEGS MINS MINS*) 

795 READIS»79H)X(575) ,TOT,ENOT 
79*^ F0RMAT(3F5»0) 

IF (ENDT*LT*0* )60 TO 703 
IFlTDTiGE.O. )G0 TO 793 
703 WRlTE(6t792) 

792 FORMAT!* ERROR READING TIlT DURATION TRY aGaIN*) 

GO TO 795 

793 X(49^)“(T0T^I *>*60f 
X(560)«X{999)*ENDT»60»+1* 

GO TO 60 

13 X("l95)»3, 

WRITE(6»969) 

969 FORmATUX, » EXERCISE* , 7X » * OUR AT I ON * * /3X » * I WAj TS » * » 9X » • I MI N ) * » 
00 loot I«I>I5t2 
]NDX»5<U*I 

XDUR*<X( InDX+I >-Xt InOX-*1 ) )./60# 

WATTS»X(1NDX)/6*I2 
iPlXl INDX«I ) tLT*0* )G0 TO lOOI 
WR1TE(6»688 )WATTS(XdUR 
lOOl CONTINUE 

ENDT»X(560)/60* 

WRITE(6,887)£NDT 

write ('6, 8) 

REA0(5,20)K 

IF !K»NE*KY> go To 60 

»RITE(6>968) 

968 FORMAT!’ ENTER NEW PROTOCOL 2F12*6 !CR WHEN COMPLETE)* » 
S/2X»*EXErCIsE* »5X I* duration * I /2X* • *! WATTS) * ,6X» • ( m1n> * > 

GO TO 966 
15 X!H95)«l . 

Xt)UR*5* 

XnC13)bXRARA!33) 

XNC(2)'*XRARA!32) 

XNC! I )bXRARA!31 ) 

WRITE! 6, 1888) ! XnC ! | ) « (- 3 1 1 ft ) ,XDUR 
t888 F0 RmAT!3X»* ATMOSPHERIC COMPOSITION !GAS FRACTI ONS) * ,/hX , 
6»N2*iHX»*02*»3Xt*C02*i/lX,3l****** *),/lX,3!F5*H»tX), 

8* F0R*iF5*2»* MInS*) 

WRITE!6«8) 

READ ! 5|20) K 

IF !K*NE*kY) qO To 885 

WRITE!6»889) 

889 F0RMAT!3X»*ENTER NEW GAS FRACTIONS ! SUM* t *0) * » /9X , 

8»n 2* »9X»*02* t3X, *C02* ,2X»*MINS* »/ . t X 1 9 ! • •***• * ) > 

786 READt5»8B3> !XNC! I ) , 1*3 > t ** I ) • XOUR 
883 F0RMAT!9F6*0) 

00 882 I*ti3 
882 C5UH*CSUM'*>XNCt I) 

lFlABStCSUM*t«)«GT«.OOOt)G0 TO 88t 
880 lF!XDUR)88t |88) »889 
88t WRlTE!6t878)CSUM 

878 fORMaT!3X,*SUM** »F9#9,*eRR0R IN Ne» PROTOCOL* TRY AGAIN*) 

GO TO 786 
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8BB CONTINUE 
889 X(5‘*2)*0. 

X (5H3 )«XDUR«80t 
X(560)“X(5H3)+1 • 

GO TO 60 
I<* X(H95)»l. 

XNCI I )«XTRA(3) 

XNC(Z)»XTRA(&) 

XNC ( 3 )»B* 

WRITE(6,80|UXNC( I I , 1*1 ,3) 

801 FORMAT! 3X, ‘CABIN TEMP ‘ » 2X , ‘ OEWPO I NT ♦ , qX » » DURAT I ON « , /3X , 

62! • (OEG*F» » iSx) .» (MIN) • »/3X,3!F7«2»5X) #//3X,‘00 YOU *i 
6‘WISH TO change PROTOCOL VALUE?*) 

read ( B«20) K 

IF (K*NE»KY) GO TO 60 
WRlTe(6«80<U 

80*1 F0RMAT(3X,*ENTER NEW VALUES FOR CABJN TEMP , DEWPT »60UR'AT I ON * » 

6* (3F5*0) * »/2X » • <DE6-F) ! M iNS ) * » / I X 1 3 ( * ♦»*• *H 
807 REAOiBtBOS) (XNC! I ) t 1*1 ,3) 

805 FORMAT! 3F5* 2» 

IF!XNC(3) tGTtOtlGO TO 803 
WRITE (6, 994) 

GO TO 807 

803 X(560)»XNC(3)»60» + 1 , 

60 PRTi»X(S99)/60t 

WRiTE( 6,‘)5I )PRTi 

**51 F0RMAT!*0THE PRINT INTERVAL IS CURRENTLY »FSt 2 »» M I NS ♦,/ f » IF YOU* 
£.• WISH TO change, enter N£W INTERVAL! OTHERWISE RETURN#) 

952 REA0!S,6,ERR»HS2)prtI 
if!prti *le.o)go to HSO 

X!599)*PRTI*60f 
ROi WRjTE (6,70) 

70 F0RMAT(»0D0 YOU WISH TO MODIFY THE OUTPUT LjST? !Y/N)*> 

READ (5,20) K 

IF (K«NE*kY) go To 460 

WR1TE(6*80) 

80 FORMAT! ‘CENTER LINE NO . ,POS I T I ON , I NqeX i&NaMe * CR WHEN COMPLETE*/ 
6* (iI#IXillilX»l4,lx,A6)*i'//l5X,* CVS THERM RESP*./8X, 

6* LINE 1 • ,5X,*2* ,6X,*3» »/4X, 

6* POSITION 2-9 1-9 l-9*»/7X» 

6* index 1-600 i-223 )-1270*t/lX, 

^ t« • «•*» *«•••«*) 

GO TO 90 

85 write (6,86) 

86 FORMAT (* *READ ERRQR**) 

90 READ (5, 100,ERR*85) LINE » iPOS ,NDX .NAME 
100 FORMAT!! i fix, I 1 ,1X,I4, IXiA^) 

IF !lInE*EQ«0) 60 Tq 460 
IF! IP0S.GT.9»0R*iP0S.LT#i)60 TO lOS 
lF!LINE*GT«3.0RfLlNE*LT*0}G0 TO lOS 
IF!NDX*lT* 1 )G0 TO 105 
GO TO ! 102f 103>10<«) f LINE 
102 IF! IPOSfEQt I )60 TO 105 
IF!n 0X.GT*600)G0 TO 105 
N! IPOS-I >«NOX 
NW! lPOS-1 )»NAME 
GO TO 90 
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103 lFINDXt6T,223 )60 TO 10& 

NI IP0S+9)«NDX 
NW ( lPOS+9 )»NAME 
GO TO 90 

lOH IF (nDX# GT. I 270)G0 TO 105 
N( IP0S+ie»»N0X 
NW( IP0S+18)-NAM£ 

GO TO 90 
105 GO TO 85 
950 WRIT£(6,902) 

902 FORmAT(»ODO YoO WiSh TO ChANGE INiTiAL 0ATA?M 
REA0(5|20)KYY 

IF(KYY#NE»KY)G0 to 901 
WR1TE(6>903) 

903 FORMAT! ’OTO CHANGE INPUT ENTER MODEL NO f !CVS*1 ,THERH«2* » 

&« «RESP*3) * INDEX (LVALUE (UtlX,l9,Fl2f5)*> 

GO TO 910 

906 WR1TE(6i91U 

911 FORMAT!* READ ERROR.TRY AGAIN*) 

910 CONTINUE 

9 O 9 READ! S*90siERR- 906)MM00|NDX,VALU 
90S FORMAT! 1 I » lX.l9,Fl2t5) 

1F!mmOD*EQ«O)g0 TO 901 
IF!MMOD.GT.3.0R«MMOD*LT«0)GO to <106 
IF!NDXtLE*0)G0 TO 906 
GO TO (907»908»909 ) ,mMOD 

907 IF!nOX.GT»600)60 TO 906 
X(NoX)«VALU 

GO TO 909 

90s IF INOX.GT, 223)60 TO 906 
XTRa!NDX )»VALU 
1N1T»3 
GO TO 909 

909 IF!NOX*GT« 1270JG0 TO 906 
XRaRA!NOX)»VaLU 
GO TO 909 

960 WRITE(6>96ll 

961 FORMAT!* 00 YOU WiSh TO CREATE aN OUTPUT FILE?*) 
REA0(5t20)K 

1F!K,NE,KY)G0 TO 200 
INlT-2 

555 continue 

IF! lB«EQtl7)G0 TO 555 
200 CONTINUE 

IF !TtGT*0«00l) GO TO -215 
IF !N!7) «NE*969) GO TO 210 
IF !X!995) .LT.0.5) gO TO 2l0 
NW!7)»NWTL 
N!7)«575 

210 write !6»205) ! NW ! { ) » I ** 1 »8 ) » ! N ! I ) » 1 ■ 1 1 6 ) 

205 FORMAT!///* CARDIOVASCULAR MODEL* »/ 

S * SECS* ,8!2X»AA)/» 599*»8l8/» ••••*♦, 

• 8 !* «*»*•«)) 

WRlTC!6,206 ) !nW! I ),1»I0»18),!n!1)*I«I0»18) 

WRITE !6t 207) ! NW ! I ) , I « 1 9 » 2y ) , ! N ! I ) , I» 1 9 * 27 ) 

206 FORMaTUX,* THERMOREGULATORY MODEL**/ 
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& IX I A6»8(2X ,A6)/ I I? »818/JX » * «****fU 

207 FORHATtlXt* RESPIRATORY MODEL’*/ 

8 iX.A6»8(2XtA6)/, l7»8l8/iX» » 8<» ••♦•*«).) 

2IS 00 220 l>It9 
K>N( I ) 

AU,5)>X(K} 

220 A< I »6)-( aU *i >*A< I i2)+AU *3)*AU »R)*aU »5J)/5,0 
DO 221 1«I0|18 

K«N( 1 ) 

XI0PU*9MXTRA (K) 

221 IF(N( mfEQ*0)X10P(2)»TRIN<U 
00222 1»19»27 

K»N< 1 ) 

XIOP ( I*»9)»XRARA(K> 

222 1F( I •GE*25. aNd*K.EQi0)XI0PU-9)»XRD( 1-2*0 
Xt&70)*A(9,61 

IF (NU)*EQ*575 *ANO. T.LT*6I*) A(7»6)*0* 

C WRITE(6>3001T » (All *51 *I«1 >8) 

IF iT.QT.l. *AN0* 10NE*LT*U GO To HZ7 

IF ( 1 T-PT J fLT. I . 1 .OR. AM00(T»ABSlXi599) ) > *GT.1 . > GO TO 310 

LP»T 

pt»lp 

PT1-PT/60. 

MR1TE(6»301 ) 

301 FORmATUH ) 

WRlTEUi300)PTl i(A(I*6)«1-}*8) 

300 format (9F8.3) 

WRITE! 6*300) ! X I OP ( 1) 1 1» I 1 9 ) 

WRlTEt6.300HXl0P( I ) , I"10, 18) 

1F( 1NiT.NE*2)G0 To 430 

NPASS»NPASS*>1 

1F( IONE.6T.OJ60 TO 429 

427 PTl-0. 
iONE»l 

DO 428 I»1>27 

428 XNUMU)«NU) 

XnUhU )»27. 

REWIND IB 

WRITE(IB) (XNUM! I ) * I-i *27) 

42 9 WRITE! IB)PT1 • (AU «6J >1«1 i 8 ) t (XI0P( I ) , I«I»18) 
NSTp«XI560)/X(599) 

IF!nSTP.EQ.NPASS)£nDFILE IB 
430 CONTINUE 
310 DO 320 J«lt4 
DO 320 I»i»9 
320 A{ I iJ)«Al I »J+i) 

RETURN 

^ end 

SUBROUTINE ALGO(T) 

c integration algorithm 

COMMON /STATE/ X ( &0) , XOOT ( SO) 

DIMENSION XDS(50) 

00 3 I«I»34 
3 XDSU )«XOOT( I) 

H-O.OOl 

IF(T.GT. 1 1 • )H«t002 
T-T + H 
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1 


I 


20 


I 


10 

2 


C#* 


c** 

c*» 


c** 


call CVS 
DO ‘I i«i .as 

XU)«H/2»*lXD0Tm+XDS(I M*xu ) 

RETURN 
END 

FUNCTION SWIN(X,A*B) 

IF(X) l.2»2 
SWIN-A 
RETURN 
SWIN>B 

return 

END 

FUNCTION FCN5W(X,A,6tC) 

IF(X> lt2>3 
FCNSW-.A 
RETURN 
FCNSWbB 
RETURN 

fcnsw-c 
return 

END 

SUBROUTINE DELA Y ( F I C » N »X »TS , XOUT i K ) 
n»no. op SecS» DEUAY 
DIMENSION TSt lOO) 

ST«0*2 

M*IFIX (pL0aT(N)/ST } 

IF(Kn0>10*20 
X0UT»TSU ) 

DO I 1«1*M 

Tsi I )»ts( i*n 

TS(m)«X 

return 

DO 2 I*1»M 
TSI1)»FIC 

return 

END 

BLOCK DATA SUBROUTINE BLKDAT 
BLOCK DATA 
COHMON/STATE/AUOO) 

COMMON/ST ATE/B( 50) 

C0MM0N/STATE/C(50) 

C0MM0N/STATE/D(50) 

C0MM0N/STATE/E(50) 

COMMON/STATE/FI20) 

COMMON/STATE/6 (280) 

state 

DATA A/lOl . »2‘(A*7»N3.3,2‘<^*6»8.N, I I,7,30*5»l9«t0»*0«» 
Ot . I<(*9»0* * IB*3ilN»BfS9«<(tH*0« II8«2»200* f^2* » 

A-w.. II ^ n n ^ ^ a II r> ^ a _ 


i 


2 38s*2»27H*H i37*9|8.75»29*0i 78.8#3*6»230» I » 15« » I09t5» 

3 16i2iH7*3>B*0« »0«0i I2*D« |50*0f / 

flow 

DATA 
COMP 

DATA C/H*Of 1 1 t2i I » 7 » 5 • 3 1 *25 1 2*0* 1 2* *2 »0* »*2l»*2»*8,*3,»3*96i3*I‘» 

1 1 3*0. ». 12 1 • 3996 f 5. 3 1. 9058* 9* 59, I *505 » 6* 0H7* 

2 *222*),2*517»5*0.,*3, 12*0*/ 

PRES 


B/39»0* ,20'i* »224« ,208* *211 •»2l2,»2l'**»2lS*,23l*»0**0*»0*/ 


I- 10 

II- 20 
21- 30 
31-100 

101^150 

6 151-170 
171-180 
161-200 


c-^ 
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data D/HO«Ot »0*001 »7*Ot »2«90«/ 

C«* RES 

DATA E/3«.007SOB»*OOH»*01502* *0B255 » . 0 1 S022 , 2*0 . **01200* 

1 «0400*0* t *03^0000* *0340* •03003»M«50B **450^* *07508 » • 07&0S * • 02 1 02 1 
2*007 38»*007 506t*0i&02**l > *03378 *3*431 * *3754 » *004302* 15*39*2*35 

3 . 34. 5345 *.2252 **5255.. 3003 **01502 **45045, 2. 744*. 6494. 0*»0** 

4 9*0**5»15/ 

C*» INRT 

DATA F/ *0007 508,. 002. 2*0* , *004 * .004 ,0 **• 004 ,. 00626 , U ‘O*/ 

HISC 

DATA g/ 48*0**5000*» 5Q0Q * *30* *0* *3o* * 0 * *85* * i5* * 400* *61 *6,2*0* * 

1 0*i90*5,0.*43*5*5*194*30**30.*162*»188«*40.* 

2 3*0* *50* *50* *509* ,26* ,562* *0*0,375* , 

3 50 * , 1 50 * * 1 8*0 . * 

• 34*0. *32*0., 4*0* ,88* .2*55*3*60*9999* ,0* , 

* 0* *0.0*0* .2* *0* *7*0* **7* *2*0* * 

4 0* *10**10* *l^«*^*. 18. *2*0*. I^**t4*. 

5 t4.*2**’*7.**l4**o*,Q*,w}4*,i3*o., 

* 0*.0**120*>8i2**42o**0**72o«.0**ll***l**72l*. 

6 72* * *09 • 6* 7 *5*0* * 8*3 *0* * 

7 *0550.0* ***1*5.0**9q. **48, *633**19* *36*46*. 

8 10. .v.015.68* * I 4*0. *0.00*30. *0«/ 

COMMON/X iOO/N( 27 1 »NW(27) .{NlT 
data INlT/0/ 

data NW/» hr*** CO*,* SV»,*V02D0T*, 

• * SYST*,* OlAS*,* LBNP»,» LEqV*,* •* 

* * TdJ*** TSBF*,* OEVAP*,* WORK * , * STOrAT * , 

• * QSTOR*** QSHIV*,* TUI)*** SQUG*. 

* 9 Vl*,* VE*,* PA 02***PA C02*** CA H*** 

• *CSF H+*** TVNT*,* AV02d*** FREQ*/ 

DaTa N/561, 563. 562*570.567*568*469*600*570. 

6125,0,92,223* 124* 120* 1 19, 165* 123* 

6 1265. 1264* 1200* 1206* 1256*1033*3*0^ 

C0MM0N/R1NTR/RIN( 10) .ROUTUO) 
data R1N(2)/I2.d/ 

, END 

BLOCK DATA SUBROUTINE TRDAT 
BLOCK DATA 

C0MM0N/TRINT/TR1N( 10) , TROUT UO) ,PTlM 

COMMON /TRm/QBASAL*UEFF*TCAB*TW,T0EWc*VCAB»VEFF *PCAS*G. 

5 CL0V*£U6,CPG,DT*PRINTI .SET I .XTPOS, 

6 ACEUO) ,ARE( 10) ,C (4l ) *CLO *0T ) ME jEMaX ( 10) ,PRINT ,PRNOW, 

6 QEVAP*QLCG*QRAD( 10) .QRSEnI *QRSEN2*qRSEN3,QRSEN&.QRSEN6* 

6 QSENl 10) , QSH 1 V, QSToR * RM, sett, SQUG, STqRAT ,T(43) * 

6 TIME,TSET(4r) , TUG UO) ,TUGAV,U, VPDEW. WORK, 

& ICOND* [POS.mCASES.NIO* I0PUT(20) 

data Q8ASAL,UEFF,TCAB,TW*T0EWC,VCAB,vEFF*PCaB 
6 ,6,CL0V,EUG,CPG,0T,PR1NT1 ,SETl , XI POS , I POS *MCASES/ 

6283. *22.* 75.* 75 .,52., 20**100**14*7*1**. 1**99*. 22 *.05,1 * *240* , 

6 1 * * 1 » 0 / 

DATA T/98.59.94* 1 7*93* l4t 92* 24 *98. A), 98 *18*90*66 *88. 22 *95*60 *95*77 
6*93.01 *92 *02 *95. 60,95. 77 *93 *01 *92. 02 *96.60 *97*00 *92 .88 *92. 04 
6*96.60,97 *00*92.88, 92 .04 *91 .01 *90*57 *89.89 *89* 13*9 I *01*90*57 
6* 89 .89 *89. 13*88. 43*88. 32 *87* 96 *87* 47 *88. 43*88* 32 *07.96*87*47 
6*98.36*90.24*97.48/ 
data QSTOR/9.15/ 

data TUg/92.24*86.87 •90.06*90*06*90. 14*90. 14*89.13 


201-250 

251-260 

261-270 

27U280 

281-290 

291-300 

30U320 

321-380 

381-390 

391-400 

401-420 

421'^495 

496-510 

511-520 

521^540 

561-570 

571-580 

581-600 
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LISTING OF whole BODY ALGORITHM 

& ,89, 13 ,87.*»7 .87.H7 / 
data trout/33,25, I 2 , 5 , 7 , 0 , • 3 1 » 5 1 • 25 , 5*0 1 / 
data 1 OPUT/ 125 I 166,92,223, I 2M, 120, 1 19, 155, 12*0/ 

DATA TSET/98,53i95* 13»9H*66,9h« 2^« 98 • 40 » 97, 30» 9*1 * 1 5 , 9 2, 52f 

• 95*95,93t^2,92»<l6,91 ,85, 95* 95 , 93 , 42 , 92 *46 , 9 1 , 85 , 

• 96*46,95,54,95*56,93*38, 96 • 46 , 95, 54 » 95 *56 , 93 * 38 , 

• 95*74,95*68,95*54,95*40, 95*74,95,68,95*54,95*40, 

* 95*25,95*05,95*20,95*07, 95*25, 95,05, 95*20, 95*07, 

• 98*4/ 

data C/4*89 ,0»J27, 0*485, 0*529, 26*59,35*57,9*36,2*67, 

* 1*56,3,35,0*635,0*474, 1,56,3,35,0,635,0,474, 

* 4*67il0«10, 1,58,1*19 , 4 * 67 * 10 * 1 0 , 1 *58 , 1 * 1 9 » 

• 0*154,0*066,0*099,0*187, 0*154,0*066,0*099,0*187, 

* 0*254,0*0660,0* 143,0*243, 0*254,0,0660,0*143,0*243, 

* 4,96/ 

END 

C BLOCK DATA SUBROUTINE NDAT 
BLOCK DATA 

COMMON/Z/ C, XN, SV, VTRAN* RK, SC, DC, A, 0, F , VOL, RMT , BC, QF , 

1 TAU, CC, ChB, CH, CPh* DQ, V£, VI, CpB, CPT , CAOK, X, DT , 

2 IRK, LOC, ITERX, INDEX, i, J, M, N 
COMMON/R/ XdS,XMH,CXT,WORK»OUMI ,DUM2,DUM3,WoRK2,RMTB,RMTB2,TIMEOF 

1 ,RMLIN,ITTY 

dimension C(40J, XN(40»2>, SVU8,50J, VTRAN(IS), RKU4,4), 

1 SCU4,5), DC(14), AI6), 0(15), F(20), VOLUO), RMT(2>, 

2 BC(4), QF(6), TaU(5), CC<3), CHb<3), CH(4), CPHC3), 

3 0Q(4) 

DATA/C/,05269»»l5l44» * 79587 »* 63977 »• 00 I I 4 , *00974 »• 6 1 323 1 
fr*00 145 ,*00974, 6*0, *73723, 47 , 85777, 36, 01 092, 567 *447 15, 40* ,0* » 

S,2,* 1 ,*1 ,l*138il* 154,3* * 1*0,39, ,,05,,Q5,8 1*99,4,361 ,2*524, 

6760* ,*0004, *2096,, 79, * 1 , 0* , * 0078 1 25 ,87 • 55 , 5, 39 , , 25 , 0*/ 

DATA/ BC/* 5 47 , *585, *585, *585/ 

DATA/RMT/* 182,*215/ 
data ITTY/»TTY •/ 

^subroutine GRODIN 

C0MM0N/X10D/1ARA(55) ,RARA(56) ,XNC(3) 

COMMON/STATE/XXZZ(600) 

DIMENSION C(40), XN(40,2), SV(l8»50), VTRAN(l8>, RK(14,4), 

1 SC(14,5), 0C(|4), A(6), D(15), Fi20), VOLUO), RMT(2), 

2 BC(4), QF(6), TAU15), CC(3), CHbU)* CH(4), CPH(3), 

3 0Q(4) 

C0MH0N/RJNTR/R0UT( ID) ,CINU0) 

C0MM0N/T0SH0R/6UYin(20) ,0UTgUY(2O) 

C(40) 

alveolar VOL Gas functions 

1 FA(C02) 

2 FA( 02) 

3 FA(N2) 

GAS concentrations IN BRAIN* 

4 CBIC02) 

5 CB(02) 

6 CB(N2) 

GAS CONCENTRATIONS IN TISSUE, 

7 CT(C02) 
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LISTING OF whole BOOT ALGORITHM 

C 8 CT(02) 

C 9 CT(N2> 

C CARDIAC OUTPUT. 

C JO Q 

c ceRebRaE blood flow* 

C U QB 

C GAS TENSION IN CSF* 

C 12 PCSFIC02) 

C 13 PC5F(02) 

C 19 PCSF(N2) 

C 

C length of SIMULATION RUN. ^ 

c (This is not used in tty mode* in batch.a work card with o time will 
c Also stop run)* 

c 15 TMAX 

C WEIGHTING OF H+CONC IN CSF VERSUS VENOUS BLOOD OF BRAIN. 

C U central SENSiTiViTY PARTITION 

C BLOOD OXYGEN CAPACITY 
C 17 (HB) 

C time constants In cardiac OUTPUT and cerebral BLOOD FLOW responses. 

C 18 Rl 

C 19 R2 

C 

c controller equation sensitivity weightings. 

C 20 central sensitivity coefficient 

c 21 carotid body sensitivity coefficient 

c 

C VOLUMES OF LUNG . BR A I N » AND TISSUE 
C 22 KL 

C 23 KB 

C 29 KT 

C 

C brain METABOLIC RATE Op C02 PRODUCTION. 

C 25 MRb(c02) 

C brain metabolic RATE OF 02 CONSUMPTION. 

C 26 MRB(Q2) 

c gas diffusion coeff.for blood**brain barrier* 

C 27 DC02 

C 28 qOZ 

C 29 DN2 

C 

c barometric pressure* 

C 30 B 

c V0L*FRacTI0N of inspired gas* 
c 31 Fl,(C02) 

C 32 FK02) 

C 33 FI(N2> 

C 

C VOL. OF CSF. 

39 KCSF 

INITIAL time 
3S T 

COMPUTER TIME STEP. 

3 & H 

CONTROlLE** equation CONSTANTIHAINTAINS resting PA(C02> aPPROX. 90). 
37 VltN) 

VALUE FOR RESTING ALVEOLAR VENTILATION. 
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c 3 S VJ(SS) 

c OUTPUT print increments (ALSO PRINTS AT * 5M I N * 1 NCR J MENTS > • 
C 39 PRINT-ALL TIME 

C 

C SVUBtBO) 

c arterial gas concentrations aT LUNG exit* 

C I CA(C02» 

C 2 CA(02) 

C 3 CA(n2) 

C 

C VENOUS GAS CONCENTRATIONS AT BRAIN EXIT. 

C H CVB(C02) 

C 5 CVBI02) 

C 6 CVB(N2) 

C 

C VENOUS GAS CONCENTRATIONS AT TISSUE EXIT. 

C 7 CVT(c02) 

C 8 CVTI02) 

C 9 CVT(N2> 

C 

C CARDIAC OUTPUT. 

C 10 Q 

c cerebRal blood flow* 

C I I QB 

C TISSUE BLOOD FLOW. 

C 12 OT 

C arterial H+ CONCENTRATION. 

C 13 CA(H*) 

C ARTERIAL 02 TENSION. 

C 14 PAI02) 

c ■ 

C IS -• 

C TOTAL GAS CONCENTRATIONS AT BRAIN EXIT. 

C 16 CVB(C02) + CVB(02» ♦ CVB(N2) 

C total gXS CONCENTRATIONS AT TISSUE EXIT. 

C 17 CVTIC02) ♦ CVTI02) ♦ CVTtN2> 

C TIME. 

C 18 T 

C 

C VTRaNUS) 

C ARTERIAL GAS CONCENTRATIONS AT BRAIN ENTRANCE* 

C I CAB(C02) ■ CA(C02HT - TAB) 

C 2 CA8(02) ■ CAI02HT - TAB) 

c 3 cab<N 2 * ■ CAIN 2 HT “ Tab) 

c 

C VENOUS BRAIN GAS CONCENTRATION AT LUNG ENTRANCE* 

C H CVbIC02)(T • TVb) 

C S CVB(02)(T « TVb) 

C 6 CVB<N2HT - TVB) 

C 

C VENOUS TISSUE GAS CONCENTRATION AT LUNG ENTRANCE* 

C 7 cVT<c02)(T - TVT) 

C 8 CVTI02MT - TVT) 

C 9 CVT(N2)tT • TVT) 

C aRTeRIaL GaS CONCENTRATIONS aT TISSUE ENTRANCE. 

C 10 CAT(c 02) ■ CA(C02)tT - TAT) 
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i J cat (02) “ CA(02) (T - TaT ) 

12 CAT(N2) • CA(N2)(T •• TAT) 

arterial h* concentration at Carotid bodies'site* 

13 CAO(h+> “ CA(h*)(T - tao) 
arterial 02 tension at carotid BOOIES’SITE. 

l<» PA0(02) B PA(02)(T • TAO) 

arterial h'*’ concentration at brain Entrance* 

15 CAB(H+) - CA(H+) (T - TAB) 

total gas concentration from brain at lung Entrance* 

U <cVb(CD2) + cVb( 02) ♦ cVB(N2))iT - TVB) 

total gas Concentration from, tjssue at lung entrance# 

17 (CVT(C02) ♦ CVTI02) ♦ CVT(N2))(T • TVT) 

For DUS) THE symbols B-BAROMETRIC PRESSUREi <)7»WATER vapor press#* 
k«conversion factor for atm to MMHG* A«SOLUBILiTY C0EFF#0F gases* 
HbCOHPUTER time step, H8*BL000 oxygen capacity 
C I 8 - H7 

C 2 K AC02 

C 3 K A02 

C ■ H K AN2 

C 5 K aN2 IB '*7) 

C 6 k A02 (B - ‘*7) 

C 7 K AN2 (B - <<7) 

C 8 0,16 2,3(HB) 

C 9 863/(8 - **7) 

C 10 0*62 

C UK ACSFCC02) 

C 12 K ACSFI02) 

C 13 K ACSF(N2) 

C n 2*H 

C 15 I#99*H 

C F(20) 

c compartmental gas tensions anD concentrations* 

C I PA(02) 

C 2 K AC02 PA(C02) 

C 3 PB(02) 

C 9 K AC02 PBIC02) 

C 5 PT(02) 

C 6 K AC02 PTiC02) 

C 7 PA(C02) 

C 8 PA(02) 

C 9 CA(02) 

C 10 CA(N2) 

C u CA(C02l ♦ CA(02) + CA<N2) 

C 12 CVB(02) 

C 13 CVT(02) 

C 

C PRODUCT OF DIFFUSION COEFFS*ANd GAS DIFFERENTIALS ACROSS BLOOO-BRAlN 
C BARRIER, 

C H 0CO2 (PB(C02) w PCSFICOZ)) 

C 15 002 (PB(02) • PC5F(02)> 

C 16 0N2 (PB(N2) PCSF(N2)> 

C 

C 17 PB(02) 

C 18 PB(n2) 



listing of whole body algorithm 
dimension DJH), IDJ(2) 

COMMON/Z/ C* XN» SV , VTRAN* «K» SCt DC* A, D» F» VOL* RMT » BC» QF * 
1 TAU, CC, CHB, CH, CPH, DQ * VE, VI, CpB , CPT , CAOK, X» DT i 

Z IRK, LOC* ITERX* INDEX* I, J, H* N 

COMMON/R/ XdS*Xmh*CXT jWORKjO'JMI ,BUM2,oUH3*WoRK2*RMTB,RMT82*TIME0F 

I *RML1N,ITTY 
DATA KKY,KYY/*YES «,»Y */ 

C ITTY «pLG for tty MOoE, 

C 0» OUTPUT TO PRINTER (BATCH MODE!* 

C »TTY *« TTY I/O AND .1ST TiME TO SUBROUTINE RCI2* 

C I • TTY I/O and not 1ST TiME TO RC12. 

DATA 1TTTY/*TTY */ 

C data FOR INITIAL CONDITIONS 

c(iD)»ciN( n 
IF (CXT*GT*0«) go TO 60 
C WRITE (6*5) 

C 5 format (/* GROOINSI RESPIRATORY CONTROL MoDEL»//> 

300 CONTINUE 

C WRIT£(6,483) 

C *183 FORMaT(»OADD DATA***’) 

C read INDICATION OC BATCH OR TTY MODE. 

C READis.HBO) ITTY 

C <(80 FORMAT(aH) 

C IF(ITTY ,NE. iTTTY) iTTY • 0 

C WRITE(6*90) 

C 90 format ( IHl 1 IX*37 H»RESPIRaTORY CHEMOSTaT INPUT DATA*/) 

C data for initial conditions 

C 00 10 I ■ I*s0 

c 1106 Has problem with eno“ » so this isnt used to 
C determine end of RUnINOO capability To start another 

C MODEL RUN IN SAME COMPUTER RUN)* 

C REA0(S*190»EN0>30t ) C ( 1 ) » ( XN (1 * U ) * U** 1 * 2 > 

C 10 CONTINUE 

IEXC*RARA( 56) 

IF( IEXC*NE*B)G0 TO 1778 
DO 1777 I»l,3 

1777 C( 30*1 )*XNC( I ) 

1778 CONTINUE 

c establish computer STeP independent Of INPUT OATA* 

C(36)«,7812SE-2 

C 190 format (5X»Fl5fO»5X,2A‘*) 

C DO 20 I » I*<( 

C IPHO ■ I + HO 

C read (5,190) BC(I), (XNBUiU), J • 1*2) 

C 20 CONTINUE 
C DO 30 I • 1*2 

C READ (5,190) RhT(I), (XNBIiiJ), J « 1*2) 

C IPHO ■ I ♦ HH 

C 30 CONTINUE 
C DO HO I ■ i *2 

C read (5,190) Oj(l), (XNB(J»U>* J • J*2) 

C IPHO ■ I ♦ H6 

C HO CONTINUE 
C 

DATA/DJ/0* *0* *0* *0*/ 

C INPUT from gUTTON model •* HcT TO hB 
CU7)«GUYIN(6)*GUYIN(7)**005 
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C OUTPUT input data. 

C J » I 

C Do 7& 1 B i » 8 

C JX « J + ^4 

C WRlT£l6t92) j, (C( l2) , i2«Jt JX) 

C 92F0RMATI' » , I 2 , 2X , 5 ( F 9 . ** » ) 

C J « J 4- B 

C 75 CONTINUE 

C WRITEI6.92) J i I BC I I) » I » I » M > 

C J » ‘45 

C filRlTEI6,92) j.RMTU » ,RMTI2) lOjU » .Oj(2) 

C 

C IF TTY I/O MAX. TIME WILL COME FROM WORK CARD. 

C(l5) • 9999999999. 

C 

C FKC02) 

DUMi»C(3l ) 

C Fli02) 

DUM2«C(32 I 
C FKNzI 

DUM3«C<33» 

W0RK»0. 

W0RK2«0. 

C METABOLIC RATE OF 02 CONSUMPTION IN TISSUE. 
RMTb»CIN(3)-C(26) 

RMTB2*ClNt3)-Cl26) 

C 

7 IMEOF-0. 

XOS«Q. 

. XMHsI0.«C(36)/0.007ei2S 
MMM»0 

201 CONTINUE 

XDS»XOS+XMH 

IF(MMM*EQ*I IXdS»X0S*C(36) 

HMM>I 
C(3B)«0. 

CIMO)«0. 

INITIAL GUESSES FOR ITERATIVE LOOPS 
ARTERIAL CONCENTRATION OF C02* 
cell) • 0.6 
C brain concentration OF C02* 

CCI2) ■ Cl R) 

C TISSUE CONCENTRATION OF C02. 

CCl3) • CI7) 

C BRAIN C02 TENSION* 

CPB ■ 50.0 

C TISSUE C02 TENSION. 

CPT » 50.0 

■ lFiXDs.GT.XMH) G0T02Q2 

C SETS VARIOUS CONSTANTS AND AGGREGATES OF CONSTANTS 

C TNAX. 

CUS) • CllS) ♦ *0001 
C PRINT ALL TIME. 

C Ci39) ■ C(39) ♦ .0001 

C FACTOR OF l*'E"*7 MULTIPLYING DIFFUSION COEFFICIENTS. 

DO 200 I « 27*29 
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C< n » CU ) * 1 *E-7 

200 CONTINUE 
202 CONTINUE 
IRK » I 
M « !*♦ 

N » 5 

IDUU ) - 0 

C solubility COEFFICIENTS* 

C A(U* UlPHA)C02* A(2)» {ALPHA)02i Al3)>* (Ai.PhA)N2* 

C AU)« ULPHA)C02» A(5)» ULPHA»02, A(6)- (AlPHA)N2 

Alt) « 0*51 
AU) > 0«Q2H 
A(3) • 0*013 
A( Ml » 0«SI 
A(B) » 0*02M 
A(6) « 0.013 

C ATM/MMHG conversion FACTOR, 

5K > 0.00132 

C CARBONIC ACID DISSOCIATION 'CqNSTAnT* 

CADK « 795,0 

C VOLU I-VOLUO)- VOLUMES USED IN CALCULATION OF VARIABLE TIME DELAYS 
VOLI I I * 0*015 
V0L12I • 1*062 
V0LI3) ■ 0.188 
VOLI*!) » 0*06 
VOLiS) a 0.188 
V0LI6) » 2.9M 
V0L(7) « 0*735 
V0L(8) a 1.062 
V0L19) * 0.008 
VOLUOlo 1*062 
C 

C (METABOLIC RATE OF CO 2 IN BRAIN « TISSUE.) / SAME FOR 02 
QF(6) s (C(25) RMTU ) )/(C(26> + RMT(2)) 

C Bi*M7 

D( I)*C(30)»M7* 

00 2)0 I a 2t4 

C PRODUCTS OF CONVERSION FACTORS AND SqLUbIlITY COEFFICIENTS. 

0(1) - SK*A( I-I ) 

0(l4’9) a SK*A( W2) 

C 

0( It3) ■ D( I)*D(I) 

2)0 CONTINUE 

c Factor used in establishing ca(C02> 

0(8) * 0.16 ♦ 2,3*C(17) 

C , 

0(9) * 863*0/0(1) ^ 

C FACTOR USED IN ESTABLISHING CB(C02). 

D(IO) a 0.62 

C MANIPULATION OF COMPUTER TIME STEP. 

0( IM) W C(36)*2.0 
0(15) a OUH) • .01*C(36) 

C 

CALL RC3 
CALL RC4 

CAtL RC5 (CPB» F(M). C(M)« BC(2}) 

CALL RC21 (CHB(2)t F(3), F(*))» C(M), CH(2). CPH(2)) 
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CALL RCI9 (CPB* CHB(2)» CC<2I» BC(l), F ( *) ) ) 

CALL RC& (CPT, FIW), C(7), BC<3)) 

CALL RC2l (CHB(3>» F(sli F<6)| Cl?!* CH(3»t CPH(3»» 
call RC19 KPT# CH6(3)» CC<3>* BC(U. FU)» 

CALL RC20 
CALL RC7 
CALL RC8 
CALL RC9 
call RCIO 

call rcu 

call RC12 
GO TO 60 
BO CALL RCIB 
call RCI6 
60 CALL RC13 
call RC12 
C 

lFtC<35) *<3E*XMH) 60 TO 20| 

C 

IF (C(3s) #QT* CU5>> 60T080 
ificxt.gt.cubu goto 80 
70 CALL RCl'H 

UU ■ AH0DKI35) » D( iH) > 

IF lUU *LT» *0001 #0R» 00 *GT* 0115)) GoTqSO 

return 

C GO TO 60 

80 »RITE(6*78) 

78 foRmatim Final values for following variables.?) 

IF (C(37) .GT. 1.0E«5» go TO 250 

220 CTERM « 0.0 

IF (VTRAnIIH) *» iOH.O) 230* 2HQ, 2H0 

230 CTERM » ( 23 . 6E-9 ) * ( ( lOR .0- - VTRAN ( I **.) ) ••H , 9 ) 

2H0 cI37) » Ct20)*KU8)*VTRANl 15) (1.0 “ C { 1 6 ) ) *CH I H ) ) 

I ♦ CUI )»VTRANU3) CTERH " Vi 

I • 37 

WRITEI6, 192) I ,C( I) , tXNU.U). J • 1*2) 

250 DO 260 I » lilH 

WRlTEt6,192) I »Cn) » IXnU»>J)» J ■ )»2) 

260 CONTINUE 

WRITE (6,19H) 

WR iT£(6,830) 

830 format! ’ONORMAL TERMATION?) 

301 CONTINUE 

STOP ^ 

C 90 format UHIH8X37H*ReSPIRaT0RY CHEMOSTAT — INPUT DATa*///) 

C 92 format (‘»2Xi3,IOXfIO.R»IOX2a8) 

C 190 FORMAT ( 5XF I 5»0» 5X2A6) 

192 FORMAT!* • * I 3 * 2X * F 1 5 . 5 , 2X , 2 A** ) 

19H FORMAT UhI ) 

^ END 

^ SUBROUTINE RC3 ^ 

dimension CI*!0)» XN(H0t2)» SV!lB»50)» VTRaNU8)» RKURiH), 

1 SCUM, 5), 0C!1M), A!6), DU5). F!20)* VOU!lO)» RHT!2)» 

2 BC!M). QF<6). TAU(5)* CCi3)» CHBl3)» CH!M), CPH(3)» 

3 OQIM) ^ r 

CoMMON/Z/ C, Xn» SV, VTRAn* RK» SC* DC* A, D» r, VOL* RMT * BC» QF » 

I TAU, CC, CHB, CH, CPH , DQ, VE, VI* CpB, CPT, CADK, X, OT, 
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C&969 
C 


I iRKi LOC» ITeRX* index* 1* J# 

FORMAT! IH yHSUB RC3) 
SETS TIME«*DEPENDEnT EXPRESSIONS 
li nnn n nw ■ 


TISSUE blood FLOW* 

QFU > “ C! 10) - Cl I 1) 
c arterial 02 tension. 

FU ) » Dl n 12) 

C arterial C02 concentration. 

F(2) » D(5l»Cl I ) 

c brain 02 concentration / (C 0 NV.FACT 0 R*S 0 LUBILITY coeff.for 
F<3) ■ C15)/D{3) 

C (CONV.FACTORfcSOLUBlLlTY C0EFF*F0R C02) • BRAIN C02 TENSION. 

FIH) ■ D12)*CPB 

C TISSUE qZ concentration / ( CONV . F ACToR*SOLUB I L I TY COEFF.FOR 
F (5) « C(a)/0(3) 

C <C0NV.FACT0R«S0LUBILITY C0EFF*F0R C02) • tissue C02 TENSION. 

FU) s 012)*CPT 
C ARTERIAL C02 TENSION, 

F(7) • Oil )*C( n 
C arterial 02 TENSION* 

F IS) » DU )*C(2) 

RETURN 
% ^NO 

■^SUBROUTINE RCS 

dimension Cl'tO), XN140»2), 

1 SC( I*), 5) . DCl 1*0 , 

2 BC(*)|, QF(6), TAUiS), CC(3), 

3 0Q{9) 

common/z/ C» XN» SV, 

1 tau, cc» chb 

2 IRK. LOC, 

C iterates for cCU ) 

C6969 FORMATUH 7HSUB RC*)) 

*O0 CALL RC21 (CHBlI), FU>» F<2). CCll), 

X - ICC(I) - Fl2))/lO.OI*Fl7) ) 

X * RCFllX) 

C SEE EQUATION 3.1. X« CAIC02) « 

X “ sell) ♦ 0.375*(c«I7) • CHBID) ♦ Fl2) 

C CCID » CAIC02) 

call 


02 ) 


02 ) 


SVIIB.SO), VTRaNUB), RKIH,*0, 

AU)» D(i5), Fl20>* VOLllO), rMt12) 


VOLl 10) 

CHB13) , CH(*0 , CPH(3) , 

BC, 


VTRAn* RK» sc, DC, A, D» F, VOLi RMT , 

CH, ePH, OQ, VE, VI, CPB, CPT , CADK, X, OT 


:HB, CH, ePH, OQ, VE, VI, CPB, 
ITERX, index, I, J, M, N 
1), arterial C02 CONCENTRATION 
>IAT1 >H 7HSUB RC4) 


CHI I ) , CPHl I ) ) 


«• D18)«IX - 0*19) 


C 3 OOO 

920 


RCA (CCID) 

CCll) * 2.0-lX 


CCll) » CCll) * 2,0*IX - Ci-t 
FORMATUH ,BHCCU) ,SX,E16.6) 
ir (ITFRX) 920, 910, 920 


ceil) )/3,0 


FB, CCB, BHC)' 


IF IITERX) 

return 

END 

SUBROUTINE RC5 tCP, ro, , 
dimension Cl‘*0), XN190,2), SVllB.SO), 

SC119,5), DClU)! A16), DllB), . ^ 

BCI 9 ), QF16), tAUlS), CC13), CHsU), CH19), CPH13), 
DQ19) 

XN» SV, VTRAn* RK» sc, DC, A, 0* F, V0l» 

DQ, VE. VI, CPB, CPT, CADK, 


VTRaN(IB), RKU9,9), 

= * F<20) , VOLUO) , RMTO 


C, 


COMMON/Z/ 

1 TAU* CC, CHB* CH, CPH, 

2 IRK, LOC, ITERX, INDEX, I, U, M, N 
ITeRATeS for 


RMT, BC 
X, 


brain and tissue Pc02 


tsnMilN AND rtu 

C6969 ' FORMATUH 7HSUB RC5) 

SIO X ■ ICCB -* FB )/lO.Ol*CP) 

X » RCFl IX) 
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SEE EQUATION Htl» X . PB(C02) • 

X. ■ (*-BHC ♦ CC8 ♦ 0(10)*(X « O.lRM/oiZ) 
CP » PB(C02» • 

CALI RCA (CPI 


» PB(C02» • 

CALL RC6 (CP) 

CP « CP ♦ (X - CP)/I0*0 

D C- Q D A I 0> r\/M^ Cl nyj.. 


CP « CP ♦ (X - CP 

c cerebral blood Flow* 

FB ■ D(2)*CP 

C3000 F0RHAT(IH »RHCP« »E16.6,RHFB* EI6,6*5HCCB» eU*6»5HBHC« 
IF ( ITERX) B20» 510, 520 
520 RETURN 


IF (ITERX) 
RETURN 
END 


E I 6 • 6 ) 


^ End 

subroutine RC6 (Y > 

dimension CIROI* XnI**0»2), SVUBiBO), VTRANUB)* RK<l‘*»‘n» 

1 SC(H,5), ocm), A(6>, 005), F(2o>» VOLUO), RMT(2), 

2 BCiR), QF(6), TaO(S), CC(3)» CH8<3»f CHI'*)? CPH(3)» 

3 DQ(H) 

COMMON/Z/ C, XN, SV, VTRANi RK, SC* DC, A, D» F, VOL, RMT , 8C , QF, 

1 TAU, CCi CHB, CH, CPH, DQ, V£, VI» CPB* CPT» CADK, X, DT, 

2 IRK, LOCi ITeRX, INDEX, I, J, M* N 


C6969 


620 

630 


TAU, CC, CHB, CH, CPH, DQ, V£, VI, 
2 IRK, LOCi ITeRX, INDEX, I, J, M, N 

CHECKS CONVERGENCE Op ITeRaTiVe PROCEDURES 
RC^t J X»CA(C02), Y»CC(l> * 

RC5 ; X»PB(C02), Y*CP * 
rC19 : X«CVB(C02), Y-CVC * 

FORMAT! IH 7HSUB RC6) 

TERX « 0 


ITERX « 0 
DIFF » ABS 
IF (DIFF • 
ITERX ■ 1 

return 

END 


( (X • Y)/Y) 

I.OE-5) 620, 620, 630 


. END 

^subroutine RC7 

dimension ctROl* XN(M0,2), SV(I8,50), VTRaN(U), RKd**,*)), 

1 SCUH»5), DC(IR), A<6), D<I5), F<20»i VOL<10», RMjlZ), 

2 BCl**), QF(6), TAU(5), CC(3), CHB(3)» CHIH), CPH(3), 

3 OQiR) 

COMMON/Z/ C» XN, SV, VTRAN» RK» SC» DC, A, D» F, VOL, RMT, 

• ^ ^ 4 ^ ttr\ ^|| r\/\ 11^ WT 


3 OQiR) 

COMMON/Z/ C, XN, SV, VTRAN, RK» SC, DC, A, D» F, VOL, RMT, BC, QF 

1 TAU, CC| CHB, CH, CPH, DQ, VE, VI, CPB, CPT , CADK, X, OT , 

2 IRK, LOC, ITERX, INDEX, I, J, M, N 

COMMON/R/ XdS,Xmh,CXT,WORk»dUMI ,dUM2,dUM3,WoRk2,RMTB,RMTB2,TiHEOF 
I ,RML1N 

C6969 FORMATUH 7HsU8 RC7) 

c Fills sv array W}Th initial conditions 
CALL RC)6 

/TY VAilLJ\ G0y02 


VRLU KV.I6 
IF(XDS,GT»XMH) ' 
DO 725 I ■ 1,17 
DO 720 J ■ 2,50 
SVU ,J) « SV( I ,I ) 
720 CONTINUE 
725 CONTINUE 
CONTINUE 
00 730 J 


DO 730 J -2,50 

SVUB.J) • SVU8,J • D - OUM) 

730 CONTINUE 
C3000 FORMATUH ,I2HI8SV S D U 'U ,6 ( 3X ,EI 6 , 6 ) / IH 
C C6.6U 
RETURN 
end 


,6i3X,E16*6)/|H ,7(3X 
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^subroutine RCa 

dimension CtHO), XN(R0»2)» SVUBiSO), VTRaN(18>, RK(IH,4), 

1 SCil^tS)* OCd'O* A(6)» DUB)i F<20d VOLUOIt RHT(2)» 

2 QF(6»t TAU(5), CC(B), CHB<3>» CHlRl* CPHlS)» 

3 0Q(H) 

COHMON/Z/ C» XNi SV, VTRAn* RK» SC. DC. A, 0» F» VOL. RMT. BC» QF . 

1 TAU, CC, CHB, CH, CPH, OQ, VE , VI, CpB, CPT, CADK, X, DT , 

2 IRK. LOC. ITERX. INDEX. I. J, K. N 

C CALCULATES TRANSPORT TIMES 

C EQUATIONS B.lO THRU B.lR • 

C6969 FORMAT! IH 7HSUB RC8) 

DO B70 I > I.S 

DT ■ COS) - SV( 18, I) 

• NO » I 

GO TO (810*812. 8H, 816, 810) , 1 
810 NC •» II 
NB « 10 
GO TO 820 
812 NC « 10 
N8 » 1 1 
GO TO 820 
81‘4 NC <* 10 
NB ■ 12 
60 TO 820 
816 NC « U 
NB B 10 
QA B QF ( U 
GO TO 822 
820 Qa » C(NC). 

822 DO 860 j • 1.2 

GO TO (B3H.824). J 
82H NC « NB 

ND • K ♦ 1 

-IF (K) 826, 826* 83 Z 

826 IF (NC » (2) 830. 828. 830 

828 QA B SV(nC.I) - (SV(nC,D “ QF ( I ) ) *DT/ « C ( 35 ) • SV(18,1)) 

GO TO 83H 

830 QA » SV(NC.l) ■' (SV(NC.I) - C ( NC ) ) *01/ ( C ( 35 ) • SV(18,l)) 

60 TO 834 

832 QA » SV(NC,NOi - (SV(NC,K) - S V ( NC , ND ) ) *OT/D U 4 ) 

834 IJ « 2*1 * U • 2 
AB B V0L( I J) 

AA * OT*(QA ♦ SV(NC.ND) )/2*0 
Do 838 K a NO, 49 
IF (AA - AB) 836. 836. 840 

836 AA » AA ♦ C ( 36 ) * I SV ( NC » K ) ♦ SV(NC,K*i)) 

838 CONTINUE 

WRITE (6,890) I 
840 da « AA" AB 
K • K *1 

IF (K) 842, 842,. 846 

842 DV B SVINC.I) ** QA 

IF (DV) 8S0. 844t 8S0 

8<(4 DT * DA/QA 

GO TO 860 

846 oV » SV(Nc»K+l) - SV(NC.K) 

IF (OV) 850* 848. 850 
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B‘*8 DT 8 DA/SV(NC,K) 

GO TO 860 

850 DT » (5V(nC»K+U - sqrt < S V I NC » K* I ) **2 - D V*D A/C < 36 1 ) > / ( 0 V/0 U H) ) 
860 CONTINUE 

TaUIU ® CI35) - SVU8»K I » - DT 
870 CONTINUE 
RETURN 

890 format (&X27HSV ARRAY EXCEEDED ON CYCLE I2> 

Sd ^nd 

■^SUBROUTINE RC9 

DIMENSION C(HO)» XNIH0»2)» SVU8,5Q>. VTRAN{l8l, RKUHtR), 

1 SCUR»B)» DCllRIt A(6)» DUB)» F(20)» VOLU0)> RMT(2)i 

2 BC(4)« QF{6)» TAU(B), CC(3)» CHB(3)» CH(H)» CPH(3)« 

3 DQ(R) 

CoMmOn/ 2/ Cl XNi SV, VTRAni RK i SCi DCi A, Di F, VOLi RMTi BCi QF , 

1 TAU, CC, CHB, CH, CPH , Dq, VE, VI, CpB , CPT, CADK, X, DT,' 

2 IRK, LOC, ITERX, INDEX, I, U, M, N 

c Sets values in vtran array 

C&969 FORMAT! IH 7HSUB RC9) 

DO 960 1 > IiB 

TA « TAUm - (CI35I - SV(l8,in 
LOC » TA/D(i*U 

IF (LOC - H9) 90H, 90*(i 902 

902 WRITE (6,990) I ,LOC 
LOC ■ h9 
90R XLOC • LOC 

TB » XL0C*0(14I 
DT « TA - TB 

GO TO (9i0, 920*930, 9 r0i950> I I 
910 DO 91H J « 1,3 

C LUnG To brain Co2,o2,N2 TImE DELAYED ARTER1A|l CONCENTRATIONS, 

VTRAN(J) • RCF3(J) 

9H continue 

C lung To BRaIN H+ time delayed aRTERIaL concentration, 

VTRaN(15> » RCF3(13) 

60 to 960 

920 DO 929 J ■ 9,6 

c brain To lUng co2,o2-,n2 time delayed Venous concentrations, 

VTRAN(J) *» RCF3(J) 

929 CONTINUE 

C BRAiN to lUng combined C02,02»N2 TiHe OELAYeq VENOUS CONCENTRATIONS, 
VTRAN( 16> • RCF3( 16) 

GO TO 960 

930 DO 939 J ■ 7,9 

C TISSUE To LUnG Co2,o2,n2 TIME DELAYED VENOUS CONCENTRATIONS, 

VTRAN(J) > RCF3(J) 

939 CONTINUE 

C tissue to LUNG cOMbINEO q02,Q2,HZ TIME dELaTED VENOUS CONCENTRATIONS, 
VTRaNU7> • RcF3U7) 

60 TO 96o 

990 DO 999 J ■ 1,3 

c LUNG TO Tissue co 2 ,o 2 ,n 2 time delayed arterial concentrations* 

VTRAN(J+9) • RCF3(J) 

999 CONTINUE 
GO TO 960 

c lung TO carotid site h* time delated arterial concentration. 

950 VTRAN(I3) « RCF3U3) 
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C LUNG TO CAROTID SITE 02 TIME DELAYED ARTERIAL TENSION. 

VTRaN cm a RCF3( 14) 

960 CONTINUE 

C namel ist/donm/vtran 

RETURN 

990 FORMAT (5X27HSV ARRAY EXCEEDED ON CYCLE l2il2H WITH LOC « l4> 

^ SUBROUTINE RCIO 

DIMENSION C(40)f XN(40.2I» SVU8.50). VTRaNUS). RKUH.H). 

1 SCU'IfS). 00(1*01 A(6), .0(151. F(20)» VOLdO). RMT(2». 

2 BC(mI. QF(6)i TAU(5 >, CCO), CHB(3>» CH{4,). CPH(3)» 

3 0Q(4> 

common/z/ c. xn. sv, vtrani rki sc» dCi a, 0. F, voLi RmTi bc. of. 

1 TAU, CC, CHB, CH, CPH , DQ, VE, VI, CPB, CPT, CADK, X, DT, 

2 IRK, LOC, ITERX, INDEX, I, J, M, N 

C6969 FORMaTUh SHSUb RClO) 

COMPUTES EMPIRICAL FUNCTIONS FOR ACRDIAC OUTPUT AND BRAIN BLOOD 
FLOW differential EQUATIONS 
F(8) > PAi02) . 

IF (F(8) " 104,0) 1008, 1020, I020 

C (0ELTa)Q(O2) • EQUATION 7.3 . 

lOQS DQ(l) a ( (.-1.0033 e~5*F(8) + 2 » 9 24} E-3 ) *F ( 8 ) - 0.2885)*F(8) +9*6651 

c (delta)q 8 (o 2 ) , Equation 7*9 . 

DQ{2) a ( n7,6SS9E-8*F (8) - 2 , 324E-5 ) *F ( 8 ) + 2 .6032E.3 ) *F ( 8 ) 

- 0.1323)*F(8) ♦ 2.785 
IF (0Q(1>) 1012, 1016, 10l6 

DQU ) « 0.0 

IF (DQ(2>) 1024, 1028, 1028 

DQU ) a 0.0 
DQ(2) ° 0*0 
F(7) a PA(C02) . 

IF (F(7) " 60*0) 1032, 1032, 1Q36 

IF.PC02 GT 60 DQ(3) STAYS AT ITS VALUE AT 60 - - OLD ROUTINE SETS 

THE Value of oQ(3j equal to o 

JF (F(7) *■ 40.0) 2036, 1040, I0**0 

DQ(3)*0* 

G0T01044 

C (DELTaIQ(C02) , replaces EQUATION 7.6 , 

1036 DO(3)a6,o 

C 

60 TO 1044 

C (DELTA)Q(C02) , EQUATION 7.5 • 

1040 DQ(3) ■ 0*3*(F(7) » 40.0) 

1044 IF (F(7> * 36.0) 1048, 1052, 1052 

C (DELTa)QB(C02) , equation 7.11 • 

1048 Dq( 4) a (8.0163E*»4*F(7> •» 3. | Q73E-2 ) *F ( 7 ) ♦ 2.3232E-2 

return 

1052 IF (F(7) - 44*0) 1056, 1056, 106o 

1056 0Q(4) a 0,0 
RETURN 

C (OELTA)Q8(C02) * EQUATION 7.13 • 

1060 DQ(4) a I ( ( **2 ♦ I 748E-7+F ( 7 ) + 9 . 39 1 8 E- 5 ) *F ( 7 > - 1 . 2947E-2 » »F ( 7 ) 

1 ♦ 0*7607)»F(7) - 15*58 

c NAMELIST/DG/DQ.F 

Return 

END 


1012 

1016 

1020 

1024 

c 

1028 

C 

C 

C 

1032 

2036 
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listing of whole body algorithm 
^ subroutine RcH 

DIMENSION C(hO>» XN(HOt2>t SVtlBiSO), VTRAN(l8), RKdH***)* 

1 SCUH|S)> OC(H)* A(6)» 0(I5)» F(20)t VOLUO>» RMT(2)i 

2 aCM), QF(6), TAUI5), CC<3). CHb<3)» CPHU>» 

3 OQ(^) 

COMMON/2/ C. XN. SV , VTRANt RK. Sc. DC. A, D» F, V0L» RMT, BC » OF. 
1 TAUt CCi CHB, CHi CPHi DQi Ve. VI. CpB» CPT» CAOK. X, oT. 

Z IRK. LOCt ITERXi index. I. J» M. N 

c CALCULATES DIFFERENTIAL EQUATIONS 

C6969 FORMATIIH BHsUB RCH) 

CALL RC17 

C EQUATION 10*1 * 

DCU) ■ {VI*C(3D • VE*C<1) ♦ DI9)*ICU 1 I^VtRANIH) + OFU) 

I *vtran< 7» -» c ud) *ceu n ) /c (22) 

c EQUATION 10*2 . 

DC(2) « (V1*C(32) - VE*C(2) ♦ D ( 9 ) • ( C (I I ) • VtR AN ( 5 ) ♦ QF ( IJ 
I •VTRANIS) - cnO)*Fl9» ) )/C(22> 

C EQUATION 10.3 * 

OCU) » (VI*C(33) - VE*C(3) ♦ D ( 9 ) • ( c ( I 1 > • VTR AN ( 6 > + QF(I) 

I •VTRAn< 9) - cnO)«F( 10) ) )/C(22) 

c equation lO.R • 

DC(*)) » (C(2S) ♦ C( 11 )*(VTRaN(1 ) - CC(2>) - F ( I H ) ) /C ( 23 ) 

c equation 10.5 . 

OC(s) • (*.C(26) + C(l I) •( VTRAN(2) •» F(l2)) - F(l5))/C(23) 

C equation 10*6 • 

DCU) • (c(ll )*IVTRaN( 3> - Cl6>) - f(16))/C(23) 

C EQUATION 1Q.7 • 

DC<7) - (RMTU) + QF ( 1 )*(VTrAN( iO) - CC ( 3 ) ) ) /C ( 24) 

C equation 10.8 • 

0C(8) « (•RMTiai + QFU )*( VTRANU I ) - F ( 1 3 ) ) ) /C ( 24 ) 

C equation 10.9 . 

DC<’) “ QfU )»(VTRAn( 12) - C<’))''C<24) 

C EQUATION 7.1. . 

DC(IO) • (-C(IO) ♦ 6.0 + 0Q(1) + DQ(3))/C(18) 

C DEpEnDAnCE of cardiac OUTPUT ON TISSUE 
C UTILIZATION OF OXYGEN. 

C 

XAB-S.& *(RMT (2)<-.21S)4‘6*-'C( 10) 

IF((RMT(2)«GT*4215)*ANO.(XAB.<3T*0.))OC( 10)»dC( 10)<»-XA6/.010 


equation 7.7 * 

DClH) ■ (-cni) + 0.75 + 0Q(2) + DQ(4 ))/cU9) 

c equation i.io • 

OC(U) » FU4)/(C(34)*D(U)) 

C equation 1.11 » 

Dell 3) ■ F( r5)/(C(34)»0< 12) ) 

C equation I.I2 • 

DC(l<i) • F( 16)/(C(3 h)«D( I 3 ) ) 

C namelist/ab/dc 
Return 
^ end 

subroutine Rcl2 

C0Mm0N/XI0D/IARA(55) ,RARA(56) .XNCC3) .TVNT,AV020F,FREQ 
COMMON/STATE/XXZZ(600) 

COMHON/RInTR/ROUTUO) ,CiN( Id) 

C0MM0N/T0SH0R/6UYIN(20) ,0UTeUY(2O) 
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1 

2 

3 


C 

C6969 

C 


C 

C 

G 

C 


C 

C 


DIMENSION C(‘*Q». Xn(H0,2), 5VU8,50), VTRaNUB), 

SC(n»b), OCU*U| A(6)t DtlSl* Fl 20 >» VOLUO), RMT(2), 
BCl**)! QF(6)» TaUIS). CC<3Ji CHb<3>» CHT4), CPH(3), 

COMMON/Z/ C» XN, SV, VTRAN# RK, Sc» DCi A, 0 , F, VOL, RHT, 6C, QF, 

1 TAU, CC» CHB, CH, CPH, DQ, V£, Vl» CpB, CPT , CAOK, X, OT, 

2 IRK, LOC, ITeRX, INOeX-, I, J. M, N 
LOMMON/R/ X0S»XmH jCXT ,W0 Rk*DUMI »DUM2,DUM3,WoRK2,RMTB,RMTB2»TIMEOF 

1 »RMLIN,ITTY,ITTY0T,ITTYIN,WRKTTY(50,3) ,LExEC, marker, NWREST 

2 tRMTM,TCT,DURAT,TlMEON,RMTK,TKT 
data IRUN/»RUN */. |STOP/»SToP»/,MORe/»MORe*/ 

DATA IBACK/*BACK*/ 

DIMENSION WRKTTY(50,3) 

formatuh BHSUB RCIZ) 

OUTPUT — PUNCHED CARDS AnD PRINTED 
CXT»C (35)*XDSwIO, 

IFICXT*LE«0* )CXT»40, 

DEAD space volume 

DSVOLmO, I 40«0.002«VE 
Respiratory frequency* 

FRE0»( ( I .♦< .726*VE)/DSV0L)***5-i* )/*363 
dead space ventilation 

0EADVT»I*+*098»VE 

C«3i»«{0EADVT*Cn )*VE*PUMI > / ( DE AD V T* VE ) 

C(32I«(DEA0VT*C12>+vE*DUM2)/(0EADVT*VE) 
C(33)«(DEaDVT*C(3)+ve*0UM3I/(0EADVT*VEI 
minute volume* 

TVNT*DEADVT+( VE*VI )/2, 

heart rate. 

HRAT£»‘i3,8*(RMT{2)+c(26) )*-5‘i*S 


IFUXT *LT* TIMEOFJ 60 TO 203 
C 

C here If need to read a new Work load card* 
c BRaNcH if in batch mode* 

JFUTTY .£Q* 01 GO to 500 

c 

c 


ITST»RARAI56) 

IFUTST.EQ.NiWRKTTYII ,2)-(XXZ2(S60)-l. j/60* 
c here if tty mode****.******. ••••*• 

IFtlTTY *EQ* l) GO TO 550 

c here If tty mode, and ist time this routine called, 
itty * I 

WRITE16,505) 

5 O 5 FORMAT! *0INPUT WORK CAROS, *,»/) 

1 • WORK* WORK LOAD (WATTS) *•* •/ 

2 » mins* Time for work load...*/ 

3 » PRINT* TIME INCRIMENT(MINS)FOr PRINTOUT,..*/ 

N ♦ EXEC*,**/ 

5 * MORE* INPUT MORE BEFoRE EXeC.*,*/ 

6 ♦ RUN * EXEC, WITH ABOVE, THEN CAN INPUT AqAIN,,,*/ 

7 * STOP* EXEC. WITH ABOVE THEN STOP...*/ 

8 * BACK* erase PREVIOUS WqRK RECORD.*,*) 

50*» ITTYIN * 0 

ITTYOT ■ I 
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PRjNT«XXZZ{597)/60t 
1 F( jTST*NE* 3»GO To 701 
OO 747 1»1*18.2 
INOX^I+SHl 

IFUXZZUNOX+l ) oLEfO* )G0 TO 747 
IF(RARA(56) ,GT.4,,AN0 .ITTYIN<iG£.I ,)G0 TO 747 
iFtXXZZl INOXI .LT.O# )G0 TO 7 h7 
ITTY IN“ITTYIN+1 

WRKTTYI ITTYINi n*XXZZUN0X)/6.l2 

WRKTTY UTTYIN,2)P(XX2Z( INDX+D^XXzZUNDX-I ) ) /6Q, 
WRKTTYUTtYIN.3)-PRjNT 
747 CONTINUE 
60 TO 702 

701 ITTYIN»I 

WRKtTYI IttYI N»2)*(XXZZ(560)-I • )/60* 

' HRKTTYi ITTYIN,3)*PRINT 
WRKTTYUTTYINt l)»Ot 

702 CONTINUE 
LEXEC-IRUN 

C DO 9999 I«1,ITTYIN 

C9 99 9 write ( 6, 7 48 II , (WRKTTYI I»U> »J»l *3) 

C 748 FORMAT! 3X,» WORK C ARDS • , / f 1 3 , 3X . 3 (F 10 .5 ) ) 

C 

c here if 1ST Time this routine called* 

C See if more work cARqS in BUffER(WRKTTY«50i3M 

550 IF<ITTY0T *LE* ITTYIN) GO TO 551 

C here IF EXAUSTED WORK CARD BUFFER ( WRKT T Y < 50 , 3 ) ) • 
IFIlEXEC *EQ* IRUN) go TO &04 
C FORCE end OF COMPUTER RUN WHEN LEXECw »STOP«. 

C( 15) » 0* 

GO TO 1210 
C 

551 W 0 RK 2 • WRKTTY! ITTYOT.n 
DURAT ■ WRKTTYUTTY0T,2) 

C<39) » WRKTTYI ITTYoT»3) 

ITTYOT ■ ITTYOT ♦ I 

GO TO 608 


203 IF<MaRKeR«EQ*OI GOTOIQI 
I W0Rk-W0Rk2 
marker*! 

C SYSTEM responses; time constants FOR WORK LOAD LEVELS! INCREASING) ♦ 
IF!W0RK*LE*O* )G0T02 

IF!W0RK»QE*5q.) TkT«2.37(2**W0RK<^200. ) 

IF! W0RK*LT*50)TKT»4.6 
TIMEINmCXT-TIMEON 
’ jF!W0Rk*LE*S0*!TCT»1*6632 

IF i WORK*GT*sO. «AND*W0RK .LE *1Q0« ) TCTB2.286q*« 6232»lilORK/SO« 
lF!w6RK.6T*iOO**AND.TlMElN*LE*2. )TCT»1*04 
IF!W0RK*6 T*!OO«*AnD#TImEIn*ST* 2* iTCT-f'IS 

C TISSUE 02 METABOLIC RATE, 

IF(TlMElN,LE,2f »RHT!2) 

& ■SS02W!WoRk)-<SSo2W!WORK)”RMTB2)*EXp!-TCT*TIMEiN) 
IF!TIMEIN,LE.2,)RMTK-RHT!2) 

IF!TIHEIN,GT.2*)RMT(2) 
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6 •SS02W(W0RK)-(SSO2WIWORK)-RMTk)*eXP(-TcT*ITIMEIN-2* ) » 

VTlM£»l • l-I . 1*£XP(-.TKT*<CXT-TIME0N>/1*92) 
c Term used in vj that is a component of transient response related 
c to work load# 

RMLIN ■SS02W(WORK>-ISS02W(WoRK)*RHTb2)*< I .-VTiMe) 

IF( VTIHE«GE* 1 • ) RMLIN*SS02W(W0RK) 

C TISSUE C02 metabolic RATE. 

RMT ( n».88*RMT(2) 

IF(TVnT.GT.37. ) RmTU )«(TVNT* 40.77)»RMT(2)/8e*5 
IFICOS) .LT.CI'IOn G0T02 
WRITE 16.333) RMTn).RMT(2) 

333 FORMAT! ♦ 0 • . I X .25HCHANSE In METABOi,-IC RATESiSX ,7HmRC02» ,FI0*H, 
1 Sx»6HMR02« .FIO.^./) 


2 continue 

IF (WORK.LE^O.O *aNo* NWReST.LT.I) RMT ( 2 ) «C I N ( 3 ) -c ( 26 » 
Avo 2DH«<F(9)*CUO)-F(I3)*{C( io)..C{ U ) > -P t 1 2 ) *C U I ) )*lQOO* 
AV020F«AV02DM/C( iO) 

OUTPUT interface FROM RESPIRATORY 
OUTgUY (3>«CHB( I ) 

ROUTU )«AV020M/I000. 

IF (WORK.GT.O.) R0UT(I)«RHTI2)*C(26) 

ROUT i2J «FREQ 
R0UT!3)»CU I ) 

ROUT! 'O-F!?) 

R0UT!5)*Ft I I 
U *> AM0D!C!3BT» O.S) 

IF !U «LT. UOE-.S .OR. U .OT. .^999) OO TO I2I0 

IF!c!35I.LT.C!*iO) ) GOTO! 230 

C!H0)«C!‘I0)+C!39) 

ARTERIAL N2 TENSION* 

1210 PAN2 ■ 0! I )«C(3) 

Tissue 02 tensi.on* 

PTO2 * C!8)/0(3> 
tissue N2 tension. 

PTN2 ■ C!9)/0!‘!> 

cerebrospInau Fluid ph . equation 6.2 • 

PHCSF ■ 9. - RCFl!CH(4)I 

venous brain h+ concentration > equation ^*7 . 

HVB ■ CADK*f!‘»)/!CC!2) - F!9)) 
venous brain PH > equation <).6 . 

PHVB • 9. - RCFUHVB) 

venoUs tissue h+ Concentration i equation 5.7 • 

HVT * CA0K*F!6)/(CC{3) - F(6)) 

VENOUS tissue PH . EQUATION 5.6 • 

PhVT * 9. - RCFMHVT) 

respiratory quotient ! alveolar)* 

RQ • ! !C( II )*VTRAN(M) ♦ QF ! I ) • VTRAN { 7 ) ) /C { 1 0 ) CC(I))/ 

I !f! 9) - ic! 1 1 )»VTRAN!5) ♦ Qf ! I ) *VTRaN ! 8 ) ) /c ! 10) ) 

QF!5) » QF!6) - RQ 


HERE when ready TO PRINT. 

C SEE IF tty mode. 

IFIiTTY .eQ* 0) GO TO 610 
C 
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C HERE IF TTY OUTPUT. 

C write U.700) CXT.ccU > #CC<2> »CC<3» ,f<9I I2I .fU3»* 

C 6 VTRAnI 13J .ChI**) ,F(7) »CPBiCPT.F< 1 ) ,fU7) ,Pto 2»VI iVE, 

C 6 EREQ.TVNT.CU I ) ,AV02DF»RMTU) ,Cno) 

C 700 F0RMAT(/F9.*»i?X.6F9.H/8F9.‘</8F9.H/> 

return 

610 IF IN .NE. GO TO 122q 

N ■ 0 

WRITE (6.1805) 

1220 N • N * I 
C 

WRITE (6.1810) CXT) RQ. QF(5) 

C 

WRITE (6.181b) (CU). I • 1.3). (OCU>i I » 1.3). F(7)» F(l). 

1 PAN2 

WRITE (6,1820) CC(l). F(9), FUQ). F(7), fU», PAN2. CHU), 
i CPh(U. ChBU) 

write (6.1825) (C(I). I • ^. 6 ). (OCd). I ■ M. 6 ). CPB. F(17). 

I F(18) . CH(2) . CPH(2) 

WRItE ( 6 , 1830 ) (C(I). I ■ 7 . 9 ), (pc(l). I " 7,9). CPT. PT 02 . 

vi PTN2, CH(3), CPH(3) 

WRITE (6,1835) (OCd). I * 12, H), (Cd). I » 12, IH), CH(H), 

1 PHCSF 

WRITE (6.1890) CC(2), F(12), C( 6 ), CPS, F(l7>, FUs), HVB, 

I PHVB, CHB( 2 ) 

write (6,1895) CC(3). Fd3), C(9), CPT. PT02. PTN2. HVT. 

I PHVT, CH8(3) 

WRITE (6,1850) (TaU(I). I * 1.5). VI. V£. CUO). C(U). OCdO). 

I OCdl) 

WRITE (6,1855) FREQ , T VNT ,OEaD VT , HR ATE , A V02DF . DSVOL 
1230 RETURN 

1290 format (5H XXXX5X7F 1 0 . H ) 

1292 format (8F10.9) 

1805 FORMAT (IHI ) 

1810 format dH06X9HTlMEFl0*9»7HX6HALV RQf 1 0,9 , 3x7HRfi) DIFF.F 8 . 9 / 

1 I6X3HCO2SX2ho28X2hN27X21H0 E R I V A T I V E S9X9HPC026X 

2 3HP027X3HPN27X9H(H^)7X2HPH5x9hHB02) 

1815 format (3X8HALVE0LaR9F10*9) 

1820 Format (3X8HARTERiAL3Fl0t9.30X,5Fl0,9,F8»9) 

1625 FORMAT { 6X5HBRA I N 1 1 F 1 0 ,9 ) 

1830 format (5X6HTISSUEI 1F10.9) 

1835 format (8X3hCSF30X8fI0,9) 

1890 FORMAT (9X7HV BRA I N3F 10, 9 , 30X , 5F 10 . 9 , F 8.9 ) 

1895 format (3X8HV T I SSUE3F 1 Ot 9 i 30X , 5F 1 0, 9 ,F8 ♦ 9 ) 

1850 Format (5XI8HTRAnSPqRT TImES -’-9X2HAB8X2HVBSX2HVT8X2hAT8X2HAC2X 
I 2H**9X2HV18X2HVE8X1HQ9X2HFB7X11H0ERI VATI VES/21X,10F10,9,F8*9) 
1855 F0RMaT(3X,9HReSP .fReq,f8,9,2X»13HMINUTE VoLuME»F8,9, 

1 2X,8h0 S VENT.F8.9,2X,10HhEART RATE.F8L.9. 

2 2X,7HAV02DF,F8,9,2X,5H0SV0L,Fb*9) 

BATCH MODE WORK CARD READ**, 

WILL USE WORK CARD WITH TlME*0 AS INDICATION 
OF END OF RUN BECAUSE U06 HAS PROBLEM 
with ends ON READ, 

500 READ(5,300,ENO«2) W0Rk2,0URAT 

300 F0RMAT(F6*2,3XtF6,2) 

C 
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LISTING OF WHOLE BODY ALGORITHM 
IptoORAT tGT. O,) GO TO 60& 

C HERE IF READ INDICATION OF END OF RUN IN BATCH M.OOE. 

C(15> - 0» 

GO TO 1210 

606 CONTINUE 

606 WRITE (6t30&) W0RK2 « OUR AT » CXT 

iOS fORMATI ••• »/ 

1 * WORK LOAD CH6*( » ,F6f 2»*WATTS FOR** 

2 F8*2,*MINS) AT* ,F9,H» ’MINS* ) 

607 T IME0F»DURAT+CXT 
T IMEON»CXT 

C SYSTEM RESPONSES; TIME CONSTANTS FOR WORK LOADS AND TISSUE 02 
C METABOLIC RATE. 

IFt W0RK2 .ge.W0RK>RMTb2»RHT(2> 

C DECREASING WORK LOADS. 

IF(WORK2.LT.WORK) RMTM*RMT<2) 

1F< WORK2.LT.WORK)RMTB*SS02W(WORK2) 

IFUW0Rk 2*LT*WORK) »AND*lWoRK*5E.50t » 1 TCT»2 ♦ 3/ ( 2* • WORK^ 200. 1 
IF( (W0RK2,LT#W0RK>.AN0. (ttORK.LT.SO* ))TCT»<lt6 
1F< W0RK2*6E*W0RK1 60T01 

101 work*work2 
markER»o 
NWREST-2 

C TISSUE 02 metabolic RATE. 

RHT (2)«RmTb‘'1RMTb“RMTM)*EXPC"TcT* < cXT-’TIMeOnI^^SOI 

VTIME*1 • 1-1* l*EXp{-TCT*tCXT^TIM£0N)/3*8H) 

c term used in VI that is a component of transient Response related 

C TO WORK LOAD. ' 

RMLIN »RMTb- < RMTB-RmTM ) • 1 1 *-VT IME) 

IFlVTlME.GE.l.) RMLIN«RMTB 
C tissue C02 METABOLIC RATE. 

RMTU )»»a8»RMT (2) 

IF< TVnT*GT* 37. » RMTt D“tTVNT*‘*Oo77J*RMTt 21/88.5 

IF(C(351 *LT«C(HO) 1 G0T02 
WRITE (6*333) RMT ( 1 ) *RMT ( 2 ) 

60To2 
^ END 

^ SUBROUTINE RC13 

DIMENSION C{HO). XN(R0*2)* SV(18,50)* VTRAN(18), RKil^.H)* 

1 SCUR.5)* 00(1*01 A(6)* 0(1S)» F(20>» VOL(lO)* RMT(2)» 

2 BC(R)i <3F(6»t TAU(-5>» CC(3)* CHB ( 3 ) * ' Ch ( H ) » CPH(3)* 

3 DQ(4) 

COMMON/Z/ C* Xn» SV* VTRAN* RK » SC» DC. A, D» F» VOL. RMT . BC» QF, 

1 TAUi cc* chb, ch, cph. DQ, VE* VI. CpB,* cpt. CADK* X, DT* 

2 IRK, LOC. ITERX, INDEX, 1, J* M» N 

C6969 FORMATUh BhSUb RCl3l 

C SOLVES M differential EQUATIONS BY F0URTH..0R0ER RUNGE*KUTTA AND 

C ADAMS-.MOUTLON PRED I CTOR-CoRRECTOR METHODS 

C NAMELIST/0B6/Ct0C,Sc 

IF (IRK - ‘U 130*(. 13&6, 1356 

130H DO 1352 INDEX - I 
DO 1308 I • l.M 
RK( I , INDEX) » DC( I ) 

1308 CONTINUE 

GO TO (1312* 1320* 1328. 

1312 DO 1316 1 • 1 .M 


1340)* Index 
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Sc< I . IRK + I > • CU ) 

SCU iIRK) « OCU ) 

I3U CONTINUE 

TI « C(35) 

1320 C(35I « Tl + CI36)/2.0 
00 132** I • I»M 

C(l) «• 5C(I»1RK4.I) « C (36)*RK (I .IN0EX)/2*0 
I32N CONTINUE 

GO TO I33& 

1328 c(35) « T| + c<36) 

Oo 1332 1 ■ i*M 

cm - SCU,IRK4-U * C(36) *RK( 1 , INDEX) 

1332 CONTINUE 
1336 CALL RCIH 
GO TO 1352 

13N0 00 13NN I « l,M 

cm • SCn»lRK*i) ♦ C(36)*IRKU» I ) ♦ 2.0»RKiIi2) + 2*0*RK(I»3) 

I ♦ RKU .‘i) )/6,0 

I3NH CONTINUE 

IRK » IRK ♦ I 
1352 CONTINUE 

return 

1356 DO 1360 I » I»H 
sc( I >5) • cm 

sen ■ Dcm 

cm • SemS) ♦ CI36)»(55«0*SC(I J**) 59*0*SC(l»3> ♦ 37*0*scm2) 

I - 9#0«SC< I . m/2N.O 

1360 CONTINUE 

C(35) » C(3S) * C(36) 

NC35*CU5)/C(36) ♦ •! 

C I 35)*C ( 36) «NC35 
136H CALL RCI4 

DO 1368 I « I,M 

SCI I » I ) * cm 

cm » scms> ♦ C(36»*l9.0*0cm ♦ I9t0»scms) - 5«0*SC(I»3> 

1 + SCm2))/2H*0 

1368 continue 

Do 1372 I “ ItM 

IF (ABS (Cm - semm - I.DE-3) 1372» I372» 1368 

1372 continue 

00 1376 I • liM 
DO 1376 U ■ I ,3 ■ 

SCI 1 1 J) ■ SCI 1 1 J+I ) 

1376 CONTINUE 
RETURN 

^ SUBROUTINE RC18 

dimension CI80J* XNI80,2), SV(18,.50), VTRaN(18», RKIH,8), 

1 SCI18,5), Delimit A<6), 0U5)» Fl20), VOLUO) , RMTI2), 

2 BCI8), QFI6), TAUI5), CCl3), CHBl3>i CHIH), CPH(3), 

3 0QI8) 

COHHON/Z/ Ct XN» SV , VTRANi Rk» SC* OCt A, D» V0L» RMT. BC» QF, 

1 TAU» CC» CHB, CH, CPH, OQ* VE* VI » CpB» CPT» CADK, X, DT, 

2 IRK* LOC> ITERX* INDEX* I* U, N* N 
C. CALLS other subroutines IN A BLOCK 

-C6969 FORMATIIH SHSUB RC18) 


CALL RC3 
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CALL RcS 
CALL RC9 
CALL RC^ 

CALL RCB (CPB» F(9), C(9), BC(2)) 

CALL.RC21 (CHBU)f F(3)» FiSI, C(H), CH<2), CPH(2U 
CALL RCl9 KPB» CHBUIt CCl2)i BCd), F(*I)) 

CALL RCB (CPTt F(6)« C(7)| BCUI) 

CALL RC2I (CHB(3It FIBli F(6)| C(7)» CH(3)i CPH<3)) 
CALL RC19 (CPT> CHB(3)> CC(3)| BCU), F(6>) 
call RCIO 


call RC20 

call Rcn 
return 

^ END 

subroutine RClS 

dimension XN(H0t2>i SVUBtBO)* VTRaN(I 8I| RK(tH|9)» 

1 SCUHiB), DCU‘*I» A(6), DtlSli Fl20J» VOLUO), RMTI2», 

2 QF(6lt TAUIB), CC( 3 > , CHB < 3 ) » CHIHI, CPHI3»i 

3 DQI*1» 

COMMON/Z/ C» XN» SV , VTRAn* RK» SC» OCi A, D» Fj VOL* RHT » BC» QF» 

1 TAUi CC, CHB, CH, CPH, DQ, VE , VI, CpB, CPT , CADK, X, DT, 

2 IRK, LOC, ITERX, index, I, J. M, N 

C6969 FORHATUH BHSUb RClS) 

NAMEUST/SCH/SV 
SHIFTS VALUES IN SV ARRAY 
DO IB30 I « l»I8 
DO 1520 J * i,^9 
JN > BI - J 
UMM • JM - I 


1B20 

IB30 


CONTjNUE 
CONTINUE 
RETURN 
END 


m tiMu 

^ SUBROUTINE RCU 

dimension c^‘*9U XN(N0»2), SVU8,B0>, VTRftNdB 

1 SC(IN,B), DC<19), A(&), DdB), p(20) 

2 BC(R), QF(6), TAU(B), CC(3>, CHB(3>i 

3 0Q(<<> 

COMMON/Z/ C, XN* SV, VTRAn* RK» sc* DC, A, 0* 

I T.AU, CC, CHB, CH, CPH, OQ, VE , VI, CpB, 


VTRftNdB) , RKUHjHJ , 

) » F(20) » VOLl I0» , RMT(2) 
rwQl ai - CHIN) , CPH(3) 


C, XN* SV, VTRAn* RK > SC* DC, A, 0* F, VOL* RHT, i 

1 T.AU, CC, CHB, CH, CPH, OQ, VE , VI, CpB, CPT, CADK, X, D1 

2 IRK, LOC, ITERX, INDEX, I, U, M, N 
COMMON/R/ XdS,Xmh*CXT,WORK»DUMI , DUM2 , 0UM3, WqRk2 , RMTB , RmTBZ * 1 


BC, 


► TIMI 


I *RMLIN 

C6969 FORMATdH 8HsUB RC16) 

c sets Values for sv aRRay 
C aRTeRIaL c02 concentration# 

SVd.l) « CCd) 

C arterial 02 CONCENTRATION* 

SV<2,1) ■ F(9) 

C BRAIN VENOUS C02 CONCENTRATION, 

SV(*», d • CC(2) 

C arterial N2 CONCENTRATION* 

5V(3, d « FdO) 

C BRAIN VENOUS 02 CONCENTRATION 
SVIB.d ■ Fd2) 

C BRAIN VENOUS n2 CONCENTRATION* 
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SV(6»1 } » C (6) 

C TISSUE VENOUS C02 CONCENTRATION* 

SVl7i D - CCO) 

C TISSUE VENOUS 02 CONCENTRATION, 

SV(8«n <* fUS) 

C TISSUE venous n2 CONCENTRATION* 

SV(9,U « C(9) 

C CARDIAC OUTPUT. 

SV( 10, I) s C( 10) 

C CEREBRAL BLOOD FLOW, 

sv(ii,i) - cm) 

C TISSUE BLOOD FLOW* 

SV( I2,n - QF(1) 

C ARTERjAL H+ CONCENTRATION* 

SV( 13, i) « CHI I) 

C arterial 02 TENSION. 

SV(iH,l) * F(l) 

c initial time* 

SV< 15*1 ) » 0.0 

c total gas concentrations at brain exit, 

sv(i6,i) • sviH,i) ♦ svia.l) + svu.-i) 

C total gas concentrations at TISSUE EXIT. 

SV(17,l) ■ SV(7,)) + sv<8,i) + SV< 9 , 1 ) 

C SIMULATED TIME. 

SVUS.I) « c(35) 

RETURN 

^ SUBROUTINE RCl7 

dimension C<^0), XN(40,2), SViI8»S0), VTRaNIU), RKll*),N), 

1 SCUIfS), DCU**), AIA), DUS), Fl20), VOtUO), RMT(2)» 

2 BCIR), QFt6)» TAU(S), CCU), CHB<3)» CHiH), CPHO), 

3 DQIR) 

CoMMON/Z/ C» XN* SV, VTRAN» RK, SC* DC* A, D* F, VOL* RMT* BC* (jF, 

1 TAU, CC, CHB, CH, CPH, DQ , VE , VI, Cp8, CPT, CADK, X, OT, 

2 IRK, LOC, ITERX, INDEX, I, J, M, N 
COMMON/R/ XoS,XHH*CXT,,WORK»dUMI , dUM2 , oOH3 , WoRK2 ,RHTB ,RMTB2 , T I MeOF 

I .RMLIN 

NAMELIST/BAD/CH(H) ,CADK,Di II ),C(.|2),BC(*U,C(37),C(38),VTRANU')) * 
ITeRM.VI ,C(20) ,C( U) ,VTRAN( 15) ,C(2l ) ,VTRANU3) *C ( 37 ) * 0< 9 ) , C U 1 ) * 
2VTRANI 16) ,0FI I ) *VTRANI l7),C(iO),F(U), 

C6969 FORNATllH BHsUB RCI7) 

C CALCULATES VENTILATION 
C CFS H+ CONCENTRATION , EQUATION 6,1 , 

CH(N) » CA0K»DU I )*Cn2)/8C(‘0 
IF (C(37) .GT* I*0E*5) 60 TO 1708 

170H VI ■ C<38) 

60 TO 1730 
1708 TERM * 0.0 

C DECISION ON arterial 02 TEnSiON AT CAROTID BqDiES’SITE* 

IF (VTRANUH) - lOH.O) 1710, 1720, I72 q 

1710 TERM * (23,6£-9)*( UO't.O •* VTR AN m ) ) ♦*^ *9 ) 

C controller EQUATION AS A FUNCTION OF HUMORAL TeRMS. 

1720 VI • Ci20)«<C{ 16)*VTRANU5) ♦ (1*0 • C U 8 ) ) »CH i 4 ) ) 

I ♦ c<2i )* vtranu3) ♦ Term c(37) 

IFIWORK *LE. 0,0) Go TO 1730 

C INCLUSION OF NEURAL component AS A FUNCTION OF WORK LOAD* 
SVNT2«SSVENT(SS02ifiM WORK) ) -VI 
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lp( (SVNT2*sT.0*)tANpt <SVNT2.LE*i&* > ) V I«Vi + SVNT2 
• IF(SVNT2.GTt 15* » VI*VI+J5* 

C 

c description of transient ventilation response* 

SVNT «»SSVeNT(RHLIN I *Vl 
IF(sVnT»GT*O.S> VI»VI*0*75«SVnT 

c 

C expired ventilation rate, equation II, I , 

1730 VE » VI ♦ D(9>*(C( I 1)*VTRaNU6) ♦ QF ( I ) * VTRaN U 7 > - CUOUFUII) 

IF CVl *LT* 0»0 *0R. VE *lT* 0*0) GO TO 17H0 

RETURN 

17H0 VI « 0*0 
VE * 0*0 

return 
^ end 

^ SUBROUTINE RCi9 <CPA, CVHBA, CVC, BHCA, FC > 

dimension ct**0)» XN(H0»2), SVU8,50|, VTR,aN(18), RKIiHiH), 

1 SCUH.S), OC(l'))i A(6), D(I5)» F(20)» VOLUO), RHTI2), 

2 BCI'U, QF(6)» TAUI5)» CC < 3 ) , CHB « 3 ) » CHIH), CPH(3), 

3 DQ(H) 

COMMQn/Z/ C» Xn* SV, VTRAn* Rk» SC, -DC, A, 0, F, VOL, RMT , 8C, QF , 

1 TAU, CC', CHB, CH, CPH, DQ, V£, VI, CpB, CPT, CADK, X, DT , 

2 IRK, LOC, ITeRX, INDEX, I, J, M, N 

c namelist/om2/cFa,cVhba,cVc,bhca,fc 

C^969 FORMATUH BHSUB RC19) 

c iterates for VENOUS' brain and venous tissue C02 concentration 
c Term used in equation h*z • 

1910 X • tcvc - FC)/(0*01*CPA) 

C LOGARITHM SUBROUTINE, 

X * RCFliX) 

C equation H,2 * 

X « BHCA ♦ 0*375*(C(17) - CVHBA) - D(B)*IX •• 0*1*1) ♦ FC 
CALL RC6 (CVC) 

CVC ■ CVC ♦ 2,0*(X •• CVO/3,0 
IF UtERX) 1920» I9l0» (920 

1920 CONTINUE 
return 


subroutine Rc 20 

dimension cI'^O), XN(*( 0 , 2 ), SVU 8 , 50 ), VTRaNUB), RK(lH,m, 

1 SC( 1 H, 5 ), 0 C(I 4 ), A( 6 ), D( 15 )» F( 20 >* VOL() 0 >, RMT( 2 >, 

2 BC(*U, QF( 6 ), TA 0 ( 5 ), CC( 3 ), CHb( 3 ), CH(H), CPH( 3 ), 

3 DQIH) 

COMMON/Z/ C, XN, SV, VTRAN, RK, Sc, DC, A, D., F, VOL, RMT, 8 C, QF , 

1 TAU, CC, CHB, CH, CPH, DQ, VE , Vl, CpB, CPT, CADK, X, DT , 

2 IRK, LOC, ITeRX, INDeX, 1 , J» M, N 

c namelist/nmf/f 

C 69&9 FORMAT! IH SHSUB RC 20 ) 

C sets TIME dependent EXPRESSIONS 

C aRTeRIaI* oxygen concentration including effects of hemoglobin* 

F( 9 ) • D(G)*C( 2 ) * CHBU ) 

c arterial nitrogen concentration* 

F( 10 ) • D( 7 )*C( 3 ) 

c total arterial gas Concentration at long exit* 

FU l ) « CC( 1 ) ♦ F( 9 ) ♦ FUO) 

C VENOUS brain OXYGEN CONCENTRATION INCLUDING EFFECTS OF HEMOGLOBIN* 


F(I2). b C(5) -*• CHBI2) 
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0 VENOUS TjSSUg OXYqeN CONCENTRATION INCLUDING EFFECTS Of HEMOGLOBIN. 

Ft 13J ■ Ct8) ♦ CHBti) 

C OXYGEN tension IN BRAIN. 

Ftl7J ■ C(5)/D(3) 

c nitrogen tension in BRAIN* 

Ft iaJ ■ C(6)/DtM> 

C product of diffusion COEFFS.aNO differential brain - C5F GAS TENSIONS 
FtlHJ • Ct27>*tCP8 - Ctl2H 
FtlB) ■ Ct28)»tFtl7) • CtI3») 

Ftl6> ■ Ct29)*tFtial • CtiH)) 

C 

RETURN 
^ END 

^subroutine Rc2i tCHBA* FA» FOi CCAi CHA» CPHAI 

dimension CtHOl* XNtHO»2)* SVtia.BQ). VTRANtte). RKtlHiH). 

1 5CtlH,B), DCtlH), At6), D(lB), Ft20l» VOLtlO), RMT(2), 

2 BCt't)* QFt6), TAUtSIt CCt3)» CHb< 3»» CHtH), CPHt3), 

3 DQtH) 

COMMON/2/ C» XN, SV, VTRAN» RK, SC» DCi a, Ot F» VOL, RMT , BC, QF , 

1 TAUt CC» CHB, CH, CPH» DQ> VE , VI» CPB, CPTi CADK, X, DT» 

2 iRK. LOC, ITERX, INOEX, I, J, Hi N 

C6969 FORMATtlH BHSUb RC2D 

NaMELIST/PB/CH8A,FA,FDiCCAiCHAiCPHA 
computes h+ ion, PH, and oxyhemoglobin 

ARTERIAL H+ CONCENTRATION. 

CHA > CADK*FD/ (CCA « FD ) 

C ARTERIAL PH* 

CPHA ■ 9.0 - RCFltCHA) 

C DEVELOPMENT OF EXPRESSION USED IN CALCULATION OF ARTERIaL 
c oxyhemoglobin Saturation. 

X ■ RCF2tcPHA» 

X • -X • FA 

X » I I.O •* EXP tX) )*«2 
X»ABSiX> 

C 

c arterial oxyhemoglobin concentration. 

CHBA • X»ctl7) 

return 

FUNCTION RCFl (W) 

DIMENSION CtHOli XN(H0,2», SVU8|50), VTRANtl8l, RKtlHiR), 

1 SCtlRiB), DCtlH), At6), DtlBli fUOIi VOlUO), RMTt2), 

2 BC(4>, QF(6>i TAU(B), CCt3), CHBt3l» CHt**), CPHOIi 

3 DQiH) 

COMMON/Z/ Cl XNi SV, VTRAn* RK, SC, DC, A, D, P, VOL, RMT, BC, QF, 

1 TAU, CC, CHB, CH, CPH, DQ, VE, VI, CPB, CPT , CADK, X, DT , 

2 IRK, LOC, ITERX, INDEX, I, J, H, N 

C LOGARITHM TO bASe 10 

RCFl • □•R3H2V4R8 * ALOGtWl 
RETURN 
m END 

FUNCTION RCF2tZ> 

DIMENSION CtROI, XNt'iOfZ), SVtl8,B0), VTRANtlBl, RKUH,<U, 

1 SCtlH,B), 0CII*U, At6), DUS), Ft20), VOLtlO), RHTt2), 

2 BCtR), QFt6), TAUiB), CCtS), CHbI 3>, CHtR), CPHt3), 

3 DQtR) 

COMMON/Z/ C, XN, SV, VTRAN, RK, SC, DC, A, 0, F, VOL, RMT, BC , QF , 
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1 TaU» CC» CHB9 CHi CPH» 0Q» Ve, VIi CPBf CPT» CAOK» X, dT » 

2 IRKi LOC» ITERXp IND£X» I> M* N 

C OXYHEMOGLOBIN -* Ph EMPIRICAL FUNCTION 

C EQUATION 3*^ < 

RCF2 “ I ( (0»00668I5*Z> - 0.1009a)*Z ♦ 0*HH92l)*Z - 
RETURN 
^ end 

^ FUNCTION RCF3IKKJ 

DIMENSION C(^0)» XN(MO»2>, SVU8*S0I, VTRaN(IB), RKUH,*!), 

1 SCU'IjS). DCUH)» AU)( DU5>» F<20»» VOLUOIi RHTI2)i 

2 BC(h)| QFU)» TAUIbIj CCI3), CHB(3l» CH(4), CPHI3), 

3 DQiH) 

COMMON/Z/ C* XN# SV. VTRAn» RK» SC» DCi A. Di F, V0L» RMTt BC» QF i 

1 TAU, CCt CHB, CH, CPH, DQ, VE, VI, CpB, CPT , CADK, X, OT , 

2 IRK, LOC, ITERX, INDEX, I, U, M, N 

c vtran function 

c variables with time delays used in equations a^I-^e*! • 

RCF3 * SV(KK»LOC) ♦ ISV(KK*LOC + D - S V ( KK , LOC )) «DT/D t I H) 

RETURN 
*j END 

^ FUNCTION SSVENT (X ) 

c calculation OF steady-sTaTe ventilation Rate as a function of tissue 
c oxygen metabolic RaTe* 

IFU*LE* *215) SSVeNT»5.398 

IF( (X*GT.*2I5)«AN0* (X*LT*2*J ) SSVEnT»25.*X 

lF<X,QE,2,)SSVENT«50,+S0,*U-2,) 

C 

Return 

^ ENp 

^ function SS02W(XJ 

C calculation of steady-state oxygen requirements for VARjOUS levels 
C of work load (X-WATTS), 

COHMON/RINTR/ROUTIIO) ,CINI 10) 

V02ROT«CIN13) 

SS02W«V02RDT-*0b 00«( t000H8508lB»6* I2«X)/ *25 
RETURN 

34 £N0 

SUBROUTINE THERM 

C STOLWIJK metabolic MaN TRANSIENT MOpEL 

COMMON /trm/QbaSal*ueff»TcabiTW,Toewc»vcab*veff,pcab»g, 
s CL0V,EUG»CP6,0 T»PRiNTI »SeTi ,X lPOS, 

8 ACE ( 10) »ARE( 10) ,Cl rD «CL0 ,DTIME,EMAX C 1 0 ) ,PR I NT tPRNOW , 

& QEVAP»QLCG,QRADU0) iQRSENI ,QRSEN2,QRSEN3,QRSENS,QRSEN6, 

& QSENUO) •QSHlV,QSTOR,RMtSETT,SQU6»SToRAT,T(R3) » 

fr TIME ,TSETIRl ) ,TU6IlO) ,TUGAV ,U , VPDEW ,WORK , 

& 1C0NP,IP0S,MCAS£S,NI0,I0PUT(20) 

COMMON/XiOD/iRARA(5B) ,AC9,A) ,PT ,EXC,XNCI3) 

C 0 HM 0 N/TRINT/TRIN( 10) , TROUT no ) ,PTIM 
COMMON/TOSHOR/GUYINUO) »0UTGUY(20) 

COMMON/TRpX/BF<‘» 0) .QCONOIRO) iQCONV(RO) iQMETiRO) ,TRCO 
DIMENSION PCAI 10) ,XXTR(20) 

DIMENSION XNEW(223) 
equivalence (QBASAL*XnEW(1 ) ) 

DATA PCA/*Q7* *3602* *06705 »♦ 06705* • I S87»* 1 587 * *025 »*025»2**03R3/ 
data KY/IHY/ 

definition Of body Segment Temperature subscripts 
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c 

TUI 

m 

head 

CORE 


TI2) 

a 

HEAD 

MUSCLE 

T(3) 

a 

HEAD 

FAT 

c 

T(M) 

at 

HEAD 

SKIN 


T<5) 

a 

TRUNK 

CORE 

TI6) 

a 

trunk 

MUSC 

c 

T(7) 

m 

TRUNK 

FAT 


T(a> 

a 

TRUNK 

SKIN 

T(9) 

8 

right 

arm 

c 

TUO) 

a 

RIGHT 

arm 

MUSCLE 

TUU 

a 

RIGHT 

aRm fat 

TU2) 

a 

RIGHT 

ARM 

c 

TU3) 

a 

left 

ARM 

Core 

Tii*f) 

a 

left 

arm MUSCLE 

TUB) 

a 

left 

arm f 

c 

T( 16) 

m 

LEFT 

ARM 

skin 

TU7) 

a 

RIGHT 

LEG CORE 

TUa) 

a 

RIGHT 

LEG 

c 

T( 19) 

10 

RIGHT 

leg 

fat 

TUO) 

m 

right 

LEG SKJN 

T{21 ) 

a 

left 

LEG C 

c 

T(22) 

m 

left 

leg 

muscle 

TI23) 

a 

left 

leg fat 

T(2M) 

a 

left 

leg S 

c 

T(2S) 

n 

RIGHT 

HAND CORE 

T(26) 

a 

RIGHT 

hand MuSCLeT(27) 

a 

RIGHT 

hand 

c 

T(28) 

B 

RIGHT 

Hand Skin 

T(29) 

a 

left 

hand core 

T(30) 

a 

left 

hand 

c 

TUI ) 

m 

left 

hand 

FAT 

TU2) 

a 

left 

hand SKIN 

TI33) 

a 

RIGHT 

FOOT 

c 

T<3*i) 

m 

RIGHT 

foot muscle 

TUS) 

a 

RIGHT 

FOOT Fat 

TI36) 

m 

right 

FOOT 

c 

TU7) 

n 

LEFT 

FOOT 

CORE 

TUB) 

a 

LEFT 

foot HOSCLE 

T(39) 

m 

left 

FOOT 

c 

T(H0> 

m 

LEFT 

JOOT 

Skin 

TUI) 

a 

central blood 

T(M2) 

w 

average sk 

c 

TU3) 

m 

AVERAGE MUSCLE 










C 

C WRlTE(6,<t<l2> (TROUT( n »I“I tS) 

C4H2 FORMATUh iBplOtH) 

IFUBASAL.lt. 0*OU QBASAL»293* 

IFIPTIM.GTo.UUO TO 321 
TROUT ( I )»33.2S 
TR0UT(2)*12.5 
TR0UT<3)*7*0 
TR0UTt<n««3l3 
TR0UT15)«51.25 
321 continue 

RM“TROUTt**) •‘♦.82&»60.*3,97 

IFUBASAL.GT.RM) RMaQBASAL 

C WR JTE(6UH3)RM 

CMH3 FORHATUH ,»RM- *,FlO.H) 

C U»UeFF/IOO.* (RHUBASAL) 

IFUm»GT«360. )GO TO 3H 
U»Q. 

GO TO 33 

3^+ UoUEFF/ lQO.*tRM*360« » 

33 WORk'RM-QBASAL'O 
C W0RK“RM-'QBASAL»U 

IF IMCASES.GT .0) 60 TO 260 
WRiTE(6,5R‘U 

FORMATUH , ♦thermoregulatory model’/// * DO YOU WISH TO* 
SEE INITIAL data <Y/N)*| 

READ(5.5*<5IlT 

5H5 format<ai> 

20 IFURARAISS) .EQ.3IG0 TO 330 
1330 MCASES-l 

IEXC*EXC ' 

IF(IEXC.NE.*U60 TO 1776 
TCAB-XNCU ) 

TDEWC»XNC(2) 

1776 CONTINUE 
330 IPOS»XIPOS 

IF< IPOS.GT.S.oR* IPOS. lT» 1)00 TO 332 
GO TO (333»334i335) .IPOS 
333 AC»19.5 
AR-15.5 
GO TO 336 
33H AC-lb.S 
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aR" 1 I «B 
GO TO 336 
33B AC«I2tB 
AR»9.5 
GO TO 336 
332 WRlTE(6t337) 

337 fORMaTUH t»ERROR IN A«EA SPECIFICATION*) 

336 CONTINUE 

OTlME-OT/60. 

SETX«SETI/60t 

SETT»SETX 

PRlNT-PRINTl/60* 

PRNOW-PRINT 

]CON0»0 

I<iO DO UO I-l »IO 

ACEH I*PCA( I)*AC 
ARE< I )»PCAU )*AR 
UO CONTINUE 
TlME-0* 

VPDEW-VPT (TDEWC) 

CLO«,88*CLOV 
ISO CONTINUE 

IF(MCASeS«E0»0)G0 To 260 

C**o»*«**#***e******««***********««*******e»*»**»***F******************* 

C MAIN LOOP FOR SHIRTSLEEVE CASE 

C*******»*»*»«*a»***»*****«*****»*»********»** *••***•*•*♦**•*•••******?• 

220 CONTINUE 
B67 continue 

PTIM“T1ME*60# 

Do 655 ll*?l f NIO 
NGER-IQPUTU I ) 

6BB XXTRU I )«XNEW(NGER) 

C WR1TE(6»M*I4>pTIm»TRinI2) |{XXTR( iX) mX*I »NI0) 

C WRIT£(6,H*I*U ITROUT(I) ,UI ,10) 

SNH FORMATUH U0F7*2) 

C 2*10 foRmATIfS.I »9X»I IF9.2) 

IF (MCASES,6T,0) return 
260 OLDSTR * STORAT 



c 

CALL SHRT 


C OUTPUT from therm TO QUYTON 

OUTgUYU )*(3eVaP*')5*I* / 10*10, 

OUTGUYUJ-TRInU ) 
time-time+dtime 

PTIM*T1ME*60. 

280 IF tTlME*GE*SETT*AND»MCASES*EO*0) GO TO 300 
IF<mCASES*EQ.O) Go to 260 
IF (prnow,gt,tIm£) return 

PRNOWwPRNOW+PRINT 
GO TO 220 
300 PT1M»TIME*60, 

PRNOW»PRNOW+PRlNT 
IF(MCASES,EQ*0)60 TO B68 

return 
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568 CONTINUE 

WRITE (6 #222) (QCONV U II » M“ i » **0 > » < BF II 2 ) » 1 2* I » 1 1 TRCO 
WRITEU.222HXNEWUU »II«125,167) ,IXNEWn2>., I2«2I0»219) jQSTOR 
222 FORHATIIH (I0F7*2) 

WRlTE(6t225) 

225 FORMAT!* THERmOREGUuATORT STEADY STATE*) 

MCAS£S»I 
GO TO 20 

Si end 

SUBROUTINE MANT 

COMMON /TRM/QBASAL»U£FF.TCAB*TWtT0£WCiVCA8iVEFF|PCAetQ» 

5 CL0V,EU6»CPQ,DT*PR1NTI iSETi »XIP0S» 

6 ACE ( IQ) »ARE( 10) » |CLO »DTI ME 1 EMaX ( 10) , PR I NT » PRNOW t 

6 QEVaP.QLC6,QRADU0) . QRSEN I , QRSEN2 » qRSEN3 , QRSEN5 , QRSEN6 . 

6 QSENUO)»QSHlV»QSToRtRM»SETT,SQUG.SToRAT,TI^3)» 

6 TIMEiTSETi^tn ,TUG< tO) »TUGAV *U » VPDEW »W0RK , 

6 IC0ND»l.P0StMCASES»Nl0»I0PUT(20) 

COMMON/TR inT/TSBF»DDEGF»TR IN( a ) »TR0UT ! 10 ) ,TrT IHE 
COMMON/TRDX/BF I*)©) ,QC0NDi40) #QC0NV(*)0) iQMeT (HO) ,TRC0 
c dimension QcONV(HO) ,QcOND(HO) #BF(H 0 ) »0MeT(HO) ,ERR0R(H0) »WaRM1HI ) 

q . iCOlOIHI ) ,!}OlF( |0) ,8LAT( 10) 

dimension error (HO) ,WARM(H l ) »C0LD(HI ) ,8DIF< lO) »QLAT(l0) 

• dimension FACTOR(HO) tQSWT(lO) iWTAREAi 10) 

Dimension bfb(HO) ,qb(HO) »workm( lO) , chilm( lO) » skinv(io) »skinc( lo) » 

• SKINS( ID) »SKINR( 10) iRESTM(IO) 

data cSW »SSW .PSW^coIL»SolL»PDlL•CCON•ScON,PcONf cCHlLtScHILtPCHlL 

* /7o 5»0*6H*0»0*0» 166*»IQ*^»0*0»H0*» I0*»0*0»0*0i0»0»25*7/ 
data aFB/99«3.0*26S»0*2a7t3« ia» H6 3* 0 » 1 3* 2 t 2 • 65 1 H • 63 » 

* 0«925«lf26|0«221 » 0*550 lO* 9.25 1 1 *26 1 0*22 t i0t550» 

• 2*Y7*3*79, 0*575*3* |5» 2 • 97 » 3 • 79 , Q, 575 , 3 * I 5 * 

♦ 0* 1 1 I » 0*265 »0*0HH2»2* 2 I » 0*lll» *2651 *0HH2(2*2)t 

• 0*177* *0221* *055* 3*31* *l77* *0221* *055* 3*31/ 

C DATA QB/*l72»*OO13H».0Ql^a».0OlO8»*6l0*»0672»*0286»*O0537» 

C **OOH7»*006H**OOUH» *000a75» *00H7* *0Q6H»*00l IHi *000875» 

C »«015i *01 92 1 *00289 **002 15* *015* *0192* *00289* *00215* 

C **00Q5H* • 00I3H » *000202* *000336* »0005H« *001 3H **000202**000336* 

C *,000875, , 000 1 35 *,000268 *,000H70* *000875* •000l35, *000268, 

C **00OH7O/ 

data QB/ *1652 **0027* *0017 » *0018* *5955* * 1015*.02H6, *007* 

8*0035» *0086* *00l5* *oOl 15* *Oo35f *Ood6» *0015» *00115* 

6*0005* *00025* *00025* *0005* *0005* *00025* *00025* *0005* 

S* 00765* *00183* *.0026**002 * * 00765 , *001 83 * * 0026 * *002 * 

5*0012* *00035* *00065 **001 **0012 **00035* *00065* *001/ 
data W0Rkm70*OiO*3,0*OH»0*OH *0*3 *0*3, 0*005 *0*005 »0«Q05» 0*005/ 

C data RESTM/*02»*663».*055**055»*1h5»*1H5«H**OOH/ 

C DATA RESTM/*Ol **55*.05**0S**15,* l5,H**0i/ 

DATa cHILM/0*02,0.85.0*025»0.025*0*035»0*035*H*0*0/ 
data RESTM/0*0 132»0* 721 *0*03»0*o3»0*0982»q* o982* *o02t *002» *0023* 
6*0023/ 

data SKINV/O* 132i0*322*O*0H75»0*0H75.O* 1 15*0* U5 *0*06 1 *0*061 , 

* o*o^*o*os/ 

data SRI NC/0 *05*0* I g *0*025 *0*025*0*025 *0*b2g*0* I 75*0*175*0*1 75* 

. 0*175/ 

DATA SKINS/0*081 ,0 • H82 * 2*0* 077 » 2*0* 1095 *2*0* 0 1 55 » 2»0*0 1 75/ 

DATA SKI NR/ *2 1 »*H2**05**05»*1»*1»*02*.02**OIS**015/ 
data FACTOR/ 3*0H *25. lHf30*H3. 0*0. 3*02* 10 *H8*H3 *67 *0*0* 

• I *32,9*82.28*89,0*0. 1 .32 *9*82* 2a *89,0*0* 
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• 9*93* 13«68t70*B7»0«Oi9*93» I3*&e«70t57t0«0t 

* 6t07»10*8^tl0*92«0*0i6*Q7*10«6Ht}0*92»0*0* 

» l5<9‘*t|9<»52»l5*&5»0*0»l5*M‘t»l9*52»l5*55t0*0/ 

C**»*»*************##9**»**«******«**********»*#**»»******************** 

c 

C sweat, SHI VER, CONSTRICTION, dilation CALCULATIONS 
C 

C*«*««*«*«««««»*»»»»*««««**««*****«*»«««*»«*«****«*********************'* 

DO BO lvl,^0 

ERRoRI 1 >-T( I )-TSET( I ) 

warm! I )«0,0 

COLD( I)«OfO 

IF (ERRORU)} 20,40,60 
20 COLD( U«-£RRORU r 
40 GO TO 60 
60 WaRMUJ-ERRORU » 
e0‘ CONTINUE 
C 

TAVSK-TI42) 

C 

C INTEGRATE PEIPHERaL AFFERENTS 

c 

Warms « OtO 

COLDS • 0*0 

DO 90 l»lilO 
K « 4*1 

warms * WARMS ♦ WARm(KI*SkInR< II 

COLDS « COLDS * COLD(K)*SKlNR( I) 

90 CONTINUE 
C 

c deTemine efferent outflow 

c 

5WEaT-CSW*ERR0RU I+SSW*(WaRM5*C0LDS)+PSW*WARM( I )*WARmS 
DILaT=CDIL«ERROR t n*SOlL*(WARMS-COLDS)+POlL*WARMU leWARMS 
STRIC»»CC0N*ERR0R( I )*»SCON» ( WARHS-C0LDS)+PC0N*C0 lD (I )»C0LDS 
C QSHIV»(24,6»ERRoR( U + »756*(WARMS-C0LDSn*.308®IWARMS-C0LDS> 

TC*(TU»«32.)*5./9t 
TAVG»(TAVSK^32f I*5i/9, 

TC-TC-I » l-t U37*0-TCMl )/lO* I 

RMX«2222I •-6l4»2*(TC)*TAVG*(«l933,2«53t66«lTC) I 
6+TAVG**2*|46.4S-1 t269*(TCj I 
C CONVERTS METABOLIC RATE FROM CAL/SEC Tq BTU/HR 
RMX«RMX*3«6*3,97 
qshiv«rmx-»qbasal 

C 

C ENSURE efferent COMMANDS ARE POSITIVE 

C 

IFISWEATI 91,92,92 

91 SWEAT* 0,0 

92 IFIDILAT) 93*94*94 

93 OILAT > 0*0 

94 jFISTRiC) 95,96,96 

95 STRIC « 0*0 

96 IF(QSHIV) 97,98,98 

97 CjSHjV - 0,0 

98 IFlERRORlin lIO,Ho*99 

99 QSHIV-0*0 
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110 continue 

C***«««******»«**9***************»************************************** 

c 

c calculation of respiratory evaporative loss 
c 

C«9« *««*«••»*••««« «•«*«*»»«***«•••«•*«««*«««««««•*•»•*••*•••••• •*•***••• 

VPIN ■ VPdEW 

HUMIN « 0.622*VPIN/(PCAB**VPIN); 

TEXP • 86f9 ♦ 0.066*TCAB ♦ 57*‘i*HUMlN 
VPEXP » VPT(TEXP) 

HUtiEXP >• 0*622*0«8*VPEXP/ iPCAB->0t8*VpEXp} 

VRESP » t0t0‘U5*PCAB*l*»9**30*>/U54^,*(TCAS*H60,) ) 

♦ *UtO * 0«33«(m«7 • PCAB))*RM 

QR ■ vresp*(humexp-huminuioho* 

C WRITE (6.5551 V RE5P »HUM£XP » HUM I N » TEXP . VPEXP , Vp I N 

C 555 FORMAK 6F10.H) 

QLATI « 0t3860*QR 
QLAT2 ■ 0*Q860*QR 
QLAT3 « 0*0287*QR 
QLaT5 » 0»2380*QR 
QLAT8 ■ 0.2630*QR 

C»«*«*« **«****•***•« »«»*•*«•«•«*•*«••*»«««*•«•«**«*•****«*»*•**••»«*•«** 

c 

C CALCULATION OF SWEAT EVAPORATIVE LOSS 
C 

C**«*»«*««**9*****««f««««»*»«****««*»*»****«***«*******************^**** 

QSWeaT > 0.0 
DO lOO i«lilO 
I 

QSWT(I) “ SKINS( I )*(SWEAT*2,**(ERr0R( J)/18»0) 1«I*0 
IF(QSWT(I1 .Lit 0.0) QSWTU) « 0.0 
QSWEAT ■ QSWEAT + QSWT(I) 

■ WTAREAU) • QSWTU )/EMAXU) 

IFiWTAREAd) .ST* 1*00) WTAREA(i) > 1.000 
100 CONTINUE 

C************************************************************** *«****•«* 

c 

C calculation Of skin diffusion evaporative LOSS 

c 

C**«**«««*««»****«««**«»«**9***«***»*»««»»»*«»**««»******«*******«****«* 

QD » 0.0 
DO 120 l-liio 

qDIFU) * 2.8*ACE(I)*(VpT(TUGU))-VpDEW) 

« •UVCAB/PCAB) •«Q, 15) •{ 1.0 w WTAREAU)) 

IF(QDlFU) *GT# 0,06 *EMaXU1) QdIf(U ■ 0,06*£HaXU) 

QD • QD ♦ QOlFi I ) 

120 CONTINUE 

C*» ••**«««*•*«*«*«*••**•*««»«««**•*•«•«*»••*»•**«*•*•••*** 

c 

c CALCULATION Op TOTAL eVAPORATIVe LOSSE® 

C 

£••*«•«*«••***•«*•*••*«*••*•*«**•••••••*••«**«*•••******* 

DO 130 I«1*I0 

QLATU) * QDIFU) ♦ QSWTU) 

IF(qlATU) .GT* EmAXUU qLATU) - EmAX(I) 

130 CONTINUE 

C WRIt£(6.987)QEVAP»QR,QD, QSWEAT 
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LISTING OF WHOLE BODY ALGORITHM 

C 987 FORMAT! ‘*FlO.*U 

QEVAP » QR + QD ♦ QSWEAT 

C***************************** •'•••*«•«•**•**••*•*•*•••**•••**•*••******* 

c blood flow calculations 

c*** ••**•*•****♦*♦••*••••♦♦*♦••♦***•*♦•• •••♦♦••♦••************°** ••**••* 

WERG«*W0RK-»77» 

IF<WERGI7,7»8 

7 WERg*0« 
workR«work 

GO to 9 

8 WORKR-77* 

9 CONTINUE 
TBMBF*2‘I»537 

BFW.TROUT ( I |•3♦6/3•785•8.322■'T8MBF 
iFtTROUTIH) tLlttMlGO TO 77& 

BFR»239* 

BFWbBFW-BFR 
GO TO 776 

775 BFR«8FW 
6FW«0« 

776 CONTINUE 
iF(BFRtLE,0»0)BFR»OtO 
DO 200 i«i 1 10 
N*H*I«3 
BF|N)»8FB|N) 

QMET(N>»QB(N) *QBASAL 

QMETIN+I )-Q8<N+n*Q8ASAL+W0RKMl I ) *WORK+CH I LM U > *QSH I V 

BFlN+n»BFBlN^n+RESTM( I ) *BFR+WOR K M ( I > *BFW 
QHET IN^2>"QB lN+2> •QBASAL 

BF(N+2)»BFBIN+2) 

QMEtI N'*'3 I «qB t N*3> *QBA5AL 

8F|N+3)*{ (BFB |N+3)+SKlNVII ) *0 ILAT ) / ( I ,0+SK I NC U ) «STR I C )) 

C &*EXPIERR0RIN*3)/18.0) 

200 CONTINUE 

BFU >»TR0UT<2»»3«6-'3*785*a*322 

BF IS)«iTR0UTI5)*3*6/3* 785* 8*322 
TCBF»0* 

tfbf*o* 

TMBF-0. 

TS8F»0* 

DO 676 KL*l»IO 
KLl»KL*H-3 
TCBF*BF(KLl l♦TCBF 
THBF*TMBF+BFIKLJ+1 » 

TFBF»TFBF+8F IKLI*2) 

TSBF-TSBF*BFULi+3) 

676 CONTINUE 

trco«tcbf*tfbf+thbf+tsbf 

cotr»trco 

TRC0«TRC0/3*6*3*78S/8»327 
C WRlTei6,655)TRC0»TMBF»TSBF»BF( 1 } 

C655 FORmATUH iHFIO***) 


CHECK FOR NEGATIVE BLOOD FLOW 


DO 220 I»|,HQ. 

220 IFIBFU) iLT^OtOiaFl I >»0#0 
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listing of whole body algorithm 


C QCONV ( n=CONVECTlON FROM bL-OOO TO E^cH NOqE 

C QCONOI I )aCONDUCT|ON BETWEEN ADJACENT NODES 

HEF l« I • 

HEF 2»1 * 

HEF3«*3 
DO 2‘fH 

QCONOU » -factor (I )»(T< i)*»TU + n ) 

2RR CONTINUE 

DO 2S0 1*1. 2N 

OCONVU I-BFU )»(T (Nl )-*T( I ) J 
2RQ CONTINUE 
T VAN*0« 

TVLN»0« ■ 

TVHn»0* 

TVFN*0. 

TBFA«0. 

TBFl*0» 

TBFH»0. 

TBFF-0. 

DO 1070 I-I.8 
TBFA«TBFA + BFU'f'8l 
TBFL*TBFL*BFn«-I6) 

TBFH*TBFH+BF ( 1+2H) 

T8FF»TBFF+BF< 1+32 J 
TVAN-TVAN*BF(I+8)*T(I+8) 

TVLN*TVLN*BF{ I«-U)*T(I + I6) 

TVHN»TVHN*BF,( I*2N)*TU*2H» 

1070 TVFN-TVFN*BF< I*32)*T I 1+32) 

TVA-TVAN/TBFA 

TVL-TVLN/TBFL 

tvh-tvhn/tbfh 

TVF-TVFN/TBFF 

CCT*C0TR*tT(*U»-Tl5n*HEF3 
CCA»TBFA*(TVA-T(9) )*HEFl 
CCH»TSFH*(TVH-T(9)+T(4l >-T(9) »*H£F2 
CCL*T8FL*ITVL»Tl I 7 ) » *HEF 1 
CCF-TBFF*lTVF-TU7)tT(‘U ) -T ( I 7 )) *HEF2 
QC0NVI5)«QC0NV(5)+CCT 
QC0NV(9>*QC0NVl9l*CCA«»5*CCH**5 
QC0NV(I3)«QC0NV(9) 

QCOnVU7)*QCONVU7)+CCL**5*CCF*.5 
QC0NV(21)-QC0NVI I7). 

D0< 1071 1-2S.32 

(jConVI l»*8FU J«<Ti9)*"TU I » 

10 7 1 CONTINUE 

DO 1072 1-33*90 
QCOnVU)*SFU )*CTU7)-TUn 

1072 CONTINUE 

C«***»««***««**««***«*«*««««*««**«»*««****«***«*< 

TeHPeRaTURe calculations 


CALCULATE TEMP OF HEAD C0RE»T<1)» ANp TRUNK C0 rE*T(5)* 


T n )*T.( I ) *07 1ME/C< I ) *(QMET < 1 ) •'QLAT I ♦QCONV t U-GCONoI 4I*'QRSENl I 
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T ( 5 ) »T (5 > *DT IMe/C(S ) • ( QMeT < 5 > •QLAT5*QC0NV ( S ) -•QCOND < S ) •QRSeNS ) 

IF! TCAB»LT«7M» »0R. TC A8 .6T # 76* ) DDEgF«T < S» **98* 7 

— — 

c calculate Temperatures of remaining cores -*-aRm(9+i 3) »LE0U7+2n,t 

C hand ( 2B*29 > lAND F00T(33*37» 

00 260 I»9*37,H 

T( n»T( U+dTIME/CU ) •(QMETU )*QcONVU )- 0 CONdU ) ) 

C IF! I.6T,21)WRITEU»9876) 1»QmETU),QC0NV( 1»»qC0NDU) 

C9876 FORMATI I M » 8X 1 3F 1 0 . M > 

260 CONTINUE 

Q — 

c calculate the Temperatures of the muscle — heao< 2 » ,trunki 6> ,aRmuo+ 

C I*U I leg (18+22) ,HAND( 26 + 30) »F00T(3H+38) 

T(2)*T(2)+DTIME/Ci 2) + (QC0N0( i).+QMET(2)*»0LAT2 + QCoNV(2)-'0COND(2)** 

• QRSEN2) 

T(6)*T(6)+0TlME/C(6) + (QCON0(5)*QMETt6)-QLAT6 + (3CoNV(6)<"QCoN0(6)-» 

« QRSEN6) 

DO 280 I»10»38|H 

TU )*T( I )+DTImE''CU ) •(qCOnOU-’U+QmETI I >*QCoNV( I )-i3C0ND( I ) ) 

280 CONTINUE 

C—™-™— — — 

C calculate TeHPeRaTUReS of the FaT layer —*HEA0(3) »TRUNK(7) ,aRM( 11+15) 
C leg ( 19+23) ,HAN0( 27+31 ) »FOOT( 35+39) 

T<3j«T(3)4.0TIME/C(3) + (QCOn0(2)*QMET (3 ) -QLAT3+QC ON V ( 3 ) -QCOND ( 3 )- 

• QRSeN3) 

DO 300 I«7»39,M 

T ( I )«T < 1 ) +DTIME/C( 1 ) •(QCONOi l-l ) +QMET ( I )+QC0NVU ) -QCONDC 1 1 ) 

300 CONTINUE 

Q ----- 

C CALCULATE TEMPERATURES OF THE SkIN -^HEAD ( M ) , TrUNK ( 8 ) , ARMU 2+ 1 6 ) , 

C LEG(20+2h) *HAND(2 8"»-32> »FOOt(36+MO) 

oo 320 
J*l/M 

TU )»T( I )+DTImE/C( 1) + (QC0nD( I- 1 ) ♦QMET ( I I ■'QLAT ( j ) ^qc onV U ) 

• •QSEN(J)<*QRA0(U)»QLC6) 

320 CONTINUE 

C— — — 

C calculate temp of central BLOOo -•’(HD 

C 

SQCON V « OtO 
00 3H0 I«1»H0 
SQCONV«SQCONV-QCOnV( 1 ) 

3H0 CONTINUE 

TCC-CCA+CCL+CCH+CCF+CCT 
SQCONV-SQCONV-TCC 
C lPT*PTlM/2. 

C IF( ( (PTIM/2* )-lPT) tGT*O*O0l )Q0 TO 665 

C WRlTE(6,66H)SQC0NV,TCCfCCAiCCL>CCH*CCF 

C 66H FORMATI 6FiO*H) 

C 665 CONTINUE 

T(Rl )»TlHl )*0TIME/C(HII*SQC0NV 

C---- — ---- — 

C CALCULATE a^ERaOE SK|N TEMPER aTURe ( H 2 ) BASEp ON PERCENTAGE OF 
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C total skin area fOR each skin NODE * ThaT NODES TEMPeRATURE 

— 

T<^2>*QtQ7«TlH)+-Q,3602*T ( 8 ) ‘*‘0*0670S*T < 1 2 ) +0 »06705«T U6) tO# I 5S7* 

• T<20)+0fl587*T t2H)+0*02B«T{28>*0»025*T(32»+0*Q3*l3*Tt36)* 

• Oo03H3*T(HO) 

T(*t3)»Oo02325*T<2)+0*5M9*T<6)+0»OS27*T< I Q ) ♦0* 0&27*T U ** I *0« J 592* 

• T* l8)+0t.l&92*Tt22)+0*00J I 5 *t 1 26 ) +0# Oo H B*T< 30) *0*00 U 5* 

• TUH)+0t00H5*T<38) 

tbf*o«o 
DO 360 l*I»HO 
360 TBF-TBF+BFU) 

C PULSE*5q926*T8F/60«0 

RETURN 
^ end 

SUBROUTINE SHRT 

COMMON /TRM/QBASAL»UEFFtTCA8,TW,T0EWC»VCABiVEFF,PCABt<5t 
$ CL0 V»eUG»CPG»dTiPR1NTi iSeTi »X lPOS» 

6 ACE no ) tAREI 10) tCMU iCLO » DT I HE » EMaX ( 10) »PR1NT »PRNOW» 

& QEVAP»QECG»QRAOnO) tQRSENl ,QRSEN2tQRSEN3,QRSEN5»QRSEN6i 

6 OSENHO) tQSHlV iQSToRitRM.SETTiSQU6tSToRAT.T193) . 

& TIME.TSET191 ) ,TUGl lO) ,TU6A V .U . VPDEW . WORK . 

8 ICOND. IP0S,MCASES»N10,I0PUT12Q) 

DIMENSION HUO) 

DATA H/.033. .026,2*,036,2*»033,2*,0H.2*.Q36/ 

1WR»TW*960» 

SQUGA«0.0 
SQUGW^O.O 
SQW«0*0 

TAVSKN*<0.**96*Tl8)+0*Q826*TU2)+0.0826*Ti l6)^0t | 995 *t 120) ♦O. 1995* 
6T 12H) ) /.99Q2 

(.****a****#*«*****«*****«*«***»**»*****o************************ 


calculation of Q-RA0IATed1sRA0) and Q-SeNSIBLE(QSEN ) 

DO 60 I*ltiO 
Jb9* 1 

TUGR»TU6( I )+960. 

HC«HU )«ACE(U*SQRT1PCAB*VCAB) 

IF 16.LE.0»0)B0 to 10 

HC 1»0#06*ACE1 I ) ♦! pCAB«*2*6*ABS(TUvi I I ) «TC AS ) ) •* * 2S 
IF1HC1.6T.HC)HC»HCI 

10 hR-0. 1713E-8*aRE1 I )*EUG*1TUGR**3+TUQR**2*TWR+TUGR*THR**2^ 

$TWR**3) 

IFl I *LT*2.0R* I ♦GT*6) GO TO 20 
IFICLO.LT.Q.OI )60 TO 20 

TUGl 1 )»*1HR*TW+HC*TCAB+ACE( 1 )/CLO*TlJ) ) / I HR+HC^ACE 1 I )/CLO) 
GO TO 90 
20 TUG(1)»T(J) 

90 QUGW«HR*1TU61 1 )-*TW> 

QUGA»hC*1TU6( I )-TCAB) 

5QUGW**SQUGW+QUGW 
SQUGA»SQUGA'^QU6A 
QS£n 1I)>QUGA 
QRAOl I )^QUGW 
60 CONTINUE 
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c calculation of respiratory sensible 

C 

GRSEN 8*PCAB* 14‘*«0/(M8*3»(TCAB + H59«69)>*RH«CPG*I(Q.385»T 

. i I )+0«a86*Ti2>+0*0287*T(3I+0»238*T(S)+0*26l5*T (6) )*TCAB) 

&•{ 1.-.33*! IM.T-PCAB) ) 

C WRIT£(i,888)QRSENI ,PCAB ,TCAB »RM »CP6 »T I D iTtS) 

C888 FORMAT! 7F10.4) 

C QRS£Nl*0* 

QRSEN2 * 0.172 • QRSENI 
GRSEN3 > 0.0574 « QRSENI 
QRS£n8 « 0.523 • QRSEnI 
QRSEN5 ■ 0*476 • QRSENI 
QRS£NI«0.771»QRSENI 
C 

c 

SQUg • SQUGA + SQUGW ♦ SQW + QRSENl ♦ QRSENb + QRSEN2 ♦ QRSEN3 ♦ 
.QRSEN6 

TUgAV«0.3317*TUg(2)*0.104*<TU6(3)+TUq!4) ) +0. 230 1 5* ! TUG! 5 ) *TU q ( 6.) ) 

C 

c calculate maximum evaporation rate 
c 

DO 80 I8l * 10 
J“4* I 

VPTUG-VPT ITUG! n ) 

HE*»0. 1 26* ace ! 1 ) • I TCAB + 460. ) •* I ♦ 04* VEFFV 1 00 • •SQRT ! VCAB/PCAB) 

IF!G*LE»0*0)G0T065 

HEl«l.32*ACE!l ) ♦ ! TC AB+460 , I /PC AB* ! PC AB *G • 1 AsS ! ,005*PCAB* ! TUG ! I >- 
•TCAB) )+l .02*(VPT(TUG! I) J -VPOEW ) ) ) •• *25 
iFiHEl .GT. HE) HE»hE 1 
65 IFli .LT. 2 .OR. I ,GT. 6 ) GO TO 7 O 
IF!CLO .LT. .on GO TO 70 

hEC£» 22*36*ACEI I > * < T ! j) ♦'*60 . ) ♦*0. 8 I / ( CLO*PC aB ) 

EHAX! I )«HE*HECL/!HE+HECL)*<VPT!T( J> )-VPD£W» 

GO TO 75 ^ 

70 £MaX!I )*HE*!VPT(T!Jn^VPDEW) 

75 lF!£MAX!l) .LT» 0.0) EMAX!l)»0.0 
80 CONTINUE 

c 

call MaNT 


c 

— ■“ " 

qstor«o« 

00 100 I«1|41 

QSTORPQSTOR + C ! I ) *! T! I )-*TS£T ill) 

100 CONTINUE 

ST0RaT»RM‘.(SQUGA + 5QUGW + SQW + QEVAP + QRSENI*<3RSeN2*QRSEN3+QRSEN6* 

1 QRSEN5)-U*QSHiV 

C SCABC ■ QRSENI ♦ QRSENS ♦ QRSEN2 ♦ QRSEN3 'F QRSEN 6 * SQUGA 

C SCABl-SQUGA+SQUGW 

RETURN 
5 . END 

FUNCTION VPTIT) 



LISTING OF whole BODY ALGORITHM 

c function to calculate vaPor pressure at temp«t 

X«6<<7 .27-1 T + *t60. J / I *8 

TEmP*X*J .8/(T + ‘160# »<M3.2‘lH + &*86eE-3*x+l • i70E"S*X»»3I 

(r / ( I * + 2* 188E-3*X> 

VPT-3207 t/ 10.**TEHP 
return 

END 

End onsite printout on JUnE ISt 1975 AT 16:I9;3S 
Db6-G03*I32*TPF5I0> *XXX(0) 



